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Steuerprobleme? 


Um eine Steuerung oder Re- 
gelung zu automatisieren, reicht 
in sehr vielen Fällen ein kleiner 
Computer. Schon die Hardware 
eines VC20-Grundmodells wür- 
de in vielen Fällen ausreichen, 
ein Commodore 64 wäre häufig 
gar nicht ausgelastet. Der gute 
alte 2001, in englischsprachigen 
Ländern »Pet« genannt, hinkte in 
puncto Leistung hinter den heu- 
tigen Heimcomputern deutlich 
her — wurde aber von vielen 
Technikern für Steuer- und Re- 
gelaufgaben eingesetzt. Man- 
che dieser Systeme tun heute 
noch ihren Dienst. 

Die Zahl der Anwendungen 
auf diesem Gebiet hat aller- 
dings lange nicht so stark zuge- 
nommen, wie die Zahl der klei- 
nen und kleinsten Computer. 
Das mag zu einem Teil daran lie- 
gen, daß eshier kaum vernünfti- 
ge Bausätze gibt — und daß an- 
dererseits auch passionierte 
Bastler schnell auf Beschaf- 
fungsschwierigkeiten stoßen, 
wenn sie bestimmte Teile oder 
Baugruppen für die Realisie- 
rung der einen oder anderen 
Idee suchen: Wer sich mit Pro- 
grammierung oder Elektronik 
auskennt, weiß nicht ohne weite- 
res, wo man welche Pumpe kau- 
fen kann, um etwa das Blumen- 
gießen zu automatisieren. 

Vorläufig war wohl noch ein 
ganz anderer Punkt hinderlich: 
Wereinen Computer hat, willihn 
ja in der Regel für verschiedene 
Zwecke einsetzen und nicht nur 
zur Erledigung einer Aufgabe. 
Wenn der Computer aber bei- 
spielsweise die Heizung steuern 
soll, dann kann er für nichts an- 
deres verwendet werden. Je 
mehr Benutzer im Laufe der Zeit 
jedoch »aufsteigen«, desto häufi- 
ger werden preisgünstige ge- 
brauchte VC 20 zu haben sein, 
die der Commodore 64-Besitzer 
dann als Zweitgerät für einen 
speziellen Zweck reservieren 
kann. Damit wäre kein Problem 
den »Kleinen« auf Dauer alsZen- 
trale einer Alarmanlage oder 
..oder...abstellen. Vielleicht be- 
kommen damit auch die Steuer- 
und Regel-Anwendungen etwas 
Auftrieb. 

Michael Pauly, Chefredakteur 
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W: waren 
schon 

recht früh am 
Ort des Geschehens. 
Die Geschäfte hatten noch 
nicht lange geöffnet, den- 
noch herrschte bereitsreger 
Betrieb. Unser Weg führte zu 
einem Kaufhaus am Stachus, 
einembekanntenPlatzinder 
Münchener Innenstadt, und 
dort direkt in die Computer- 
abteilung. 

Vorbei an Farbe sprühen- 
den Monitoren, die mit klei- 
nen und großen Computern 
verbunden waren, aufdenen 
begeisterte Jugendliche 
ganz weggetreten herum- 
hackten, hielten wır Aus- 
schau nach einem Commo- 
dore C 64. Aber nicht nach 
einem normalen, sondern 
nach einem, der an ein Mo- 
dem oder auch an einen 
Akustikkoppler angeschlos- 
sen war. Unsere Erwartun- 
gen wurden um einiges ge- 
dämpft, als wir nichts der- 
gleichen zu sehen bekamen. 
Sollte man uns falsch infor- 
miert haben? Waren wir im 
falschen Kaufhaus? 

Schließlich entdeckten wir 
ein Gerät, von dem wir an- 
nahmen, zu Recht annah- 
men, daß esein Modem war. 
Äber kein © 64 in der Nähe. 
Lediglich ein Apple, dessen 
Tastatur miteiner Plastikhau- 
be verdeckt war, stand an 
der nächsten Regalecke 
(Bild 1). Dann bemerkten wir 
auch die Kabelverbindung 
zwischen diesen beiden Ge- 
räten. 

Auch ein Bediener war 
nicht zu sehen. Selbst die 
Computer-Fans wußten mit 
dieser Ecke nicht viel anzu- 
fangen. Daß sich hier in Kür- 
ze erstaunliches abspielen 
sollte, ahnte sicherlich kei- 
ner von ihnen. 

Wir hatten kaum Zeit, uns 
das Modem, dieses für Ein- 
geweihte so interessante Ge- 
rät, genauer anzuschauen, 
als ein Mann auftauchte, der 


Datenübertragung 


Tagesordnung, in Deut 
Ein Kaufhaus in München 
zwischen einem Apple und ein 


-Skou 





Bild 1. Der Apple war an das Modem angeschlossen 


sich sofort daran zu schaffen 
machte. Nachdem wir uns 
vergewissert hatten, an den 
Richtigen gekommen zu 
sein, stellten wir uns vor und 
dann die alles einleitende 
Frage: »So, daß also ist das 
Modem ?I« 

Im folgenden Gespräch 
erfuhren wir mehr über das, 
was wir zu sehen bekommen 
sollten. Es war erstens ge- 
plant, eine Verbindung zwi- 
schen einem C 64 und dem 
schon erwähnten Apple her- 
zustellen. Zum anderen soll- 
te eine Verbindung mit ei- 
nem Computer in Köln ge- 
schaffen werden. 





mit dem C 64 
editieren 


Der Commodore 64, mit 
dem der Datenaustausch 
laufen sollte, stand an einem 
anderen Stand, etliche Me- 
ter weiter. Angeschlossen 





waren ein Diskettenlaufwerk 
VC 1541, ein Monitor und ein 
Akustikkoppler (Bild 2). 

So, jetzt konnte es losge- 
hen. Nachdem noch einmal 
alle Verbindungen geprüft 
waren, wurde zuerst die not- 
wendige Software geladen. 
Sie ermöglicht es, alle Daten 
über die RS232-Schnittstelle 
über den Userport an den 
Akustikkoppler zu schicken, 
verarbeitet einkommende 
Daten und speichert den ge- 
samten Dialog auf Wunsch 
auf Diskette. 

Jetzt fehlte nur noch eines: 
Die Telefonverbindung. Also 
wurde die Nebenstelle an- 
gewählt, unter der das Mo- 
dem angeschlossen war. 
Kurze Zeit später meldete 
sich der Äpple! Natürlich 
vergewisserten wir uns So- 
fort, ob das gleiche Bild auf 
dem AÄpple-Monitor zu se- 
hen war. Und tatsächlich, al- 
les lief synchron. Als näch- 
stes wurde demonstriert, 
wie der C 64 Programme 
vom Apple holte. Wir ließen 








ar Telefon ist in Amerika schon fast an der 
:hland eine Sache von wenigen Spezialisten. 
monstrierte jetzt einen Datenaustausch 

m C 64 über Modem und Akustikkoppler. 


im Kaufhaus 





uns Basic-Programme aus 
dem Äpple-Laufwerk laden 
und konnten sie am C 
64-Monitor listen und auch 
ändern. Auch das Zurück- 
speichern verlief ohne Kom- 
plikationen. 

Ein ungewohntes Bild war 
es schon. Äpple Basic auf 
dem C 64, ohne das die VC 
1541 aktiv war. Natürlich lief 
alles sehr langsam ab, näm- 
lich mit 300 Baud (Bit pro Se- 
kunde). Das ist die Ge- 
schwindigkeit, mit der die 
Daten per Akustikkoppler 
über die RS232-Schnittstelle 
fließen. Aber es war sehr 
beeindruckend. 

Da alles über das normale 
Telefonnetz lief, stand auch 
einer weiter entfernten Ver- 
bindung nichts mehr im 
Weg. Aber sehen wollten wir 
das schon. Und so konnte ei- 
ne weitere Aktion ablaufen: 
In Köln stand ein C 64, der 


Der Meß- und Steuercompu- 
terSX 64 ADS von Datalog bietet 
als kompakte Einheit die preis- 
günstige Möglichkeit, anfallen- 
de Meßwerterfassungs-, Regel- 
und Steueraufgaben an wech- 
selnden Einsatzorten ohne gro- 
Ben Geräteaufwand zu lösen. 
Das integrierte Meßdateninter- 


face besitzt vier Analog- 
Eingänge mit einer Auflösung 
von 12 Bit, zwei Analog- 


Ausgänge für Regelzwecke, vier 
DigitalTTL- und vier Relais- 
Ausgänge für Steuerungsan- 
wendungen. Die Datenrate be- 
trägt maximal 50 Messungen pro 
Sekunde zum Äbfragen und Set- 
zenaller Ein- und Ausgänge. Die 
Programmierung des eingebau- 
ten Interfaces geschieht direkt 
in Commodore-Basic und sei 
auch von einem wenig erfahre- 
nen Änwender mit Basic-Kennt- 
nissen innerhalb von Minuten zu 
erlernen. 


darauf wartete, mit dem in 
München stehenden Apple 
zu kommunizieren. 

Wir brauchten nur noch 
auf den Änruf des Kölner 
Gegenüber zu warten. Un- 
ser Apple stand auf Emp- 
fang. Gespannt warteten wir 
darauf, die ersten Zeichen 
auf dem Monitor zu sehen. 
Und auf einmal kamen sie! 
Wir erlebten die Versuche 
des Kölner mit, mitdem Äpp- 
le Kontakt aufzunehmen. Je- 
de Taste, die er in Köln 
drückte, war bei uns zu se- 
hen. Er versuchte eine Mel- 
dung für ihn abzurufen. Lei- 
der hatten wir in seinen 
»Briefkasten« keine Nach- 
richt hineingeschrieben. 
Man merkte ihm seine Ent- 
täuschung an. Äber wir 
übermittelten ihm dann di- 
rekt unsere Grüße zum Ge- 
lingen dieses interessanten 
Versuches. 


Bild 2. Der © 64 war über den Akustikkoppler an das Telefonnetz angeschlossen 


Mit normalen Mailboxen 
(Briefkästen) kann man auf 
drei Ärten kommunizieren. 
Erstens ist es möglich Nach- 
richten einzugeben. Diese 
Nachrichten kann jeder, der 
einen AÄkustikkoppler be- 
sitzt, eingeben und, das ist 
die zweite Funktion, auch ab- 
rufen und lesen. Die dritte 
Möglichkeit ist die direkte 
Verbindung zwischen Änru- 
fer und Empfänger. Der 
Empfänger ist immer der 
Computer, der die Mailbox 
unterhält. In unserem Fall 
war das der Äpple im Mün- 
chener Kaufhaus. Manche 
Mailbox-Programme lassen 
es auch zu, persönliche 
Nachrichten einzugeben, 
die nur von einem bestimm- 
ten Teilnehmer gelesen wer- 
den können. Dieser Teilneh- 
mer muß dazu einen persön- 
lichen »Briefkasten« in dem 


Tragbarer Meß- und Steuercomputer SX 64 ADS 





Mailbox-System besitzen, für 
denerinderRegeleinen ge- 
ringen Beitrag bezahlt. Erer- 
hält eine Geheimzahl, ein 
Paßwort, das nur er kennt. 
Somit wird sichergestellt, 
daß nur er die für ihn be- 
stimmten Nachrichten lesen 
kann. 

Wir »sprachen« dann noch 
etwas mit Köln und beende- 
ten die Verbindung. Die De- 
monstration war gelungen 
und wir um einiges Wissen 
reicher. Natürlich juckte es 
unsin den Fingern, diese Er- 
kenntnisse auch selbst zu 
verwenden. Über unsere Er- 
fahrungen werden wir noch 
ausführlich berichten. 

Als wir das Kaufhaus ver- 
ließen, standen die Spiele- 
Freaks immer noch vorihren 
Computern und hatten keine 
Ähnung, was ihnen entgan- 
gen war... (gk) 


Weitere Vorzüge des Kom- 
paktsystems sind der $-Zoll- 
Farbbildschirm mit der Mög- 
lichkeit, hochauflösende Grafi- 
ken (Meßwertkurven) darzustel- 
len, sowie die eingebaute 
Floppy-Station mit 170 KByte 
Speicherkapazität. Der Compu- 
ter selbst ist mit einem RAM- 
Speicher von 64 KByte ausrei- 
chend bestückt. Optionellliefert 
Datalog ein passendes RS232C 
(V.24)-Interface zur Kommunika- 
tion mit anderen Systemen. Ins 
besondere wird darauf hinge- 
wiesen, daß das komplette 
Software-Angebot für den weit 
verbreiteten C 64-Mikrocompu- 
ter ohne Einschränkungen auf 
dem Meß- und Steuercomputer 
SX 64 ADS lauffähig ist. Somit ist 
das System nicht nur auf dem 
Einsatz im technisch-wissen- 
schaftlichen Bereich begrenzt. 
Umfangreiche Demo-Soitware 
seiim Lieferumfang enthalten. 


kun Q 





Computer Journal 
gesucht 


Wer hat noch Hefte der Jahr- 
gänge 82/83 vom inzwischen 
eingestellten Computer Journal 
und kann mir diese ausleihen ? 
Wer besitzt eine Anleitung zum 
Music Composer für den VC 20? 

David Twigg-Flesner 


GBM-Peripherie am 
Commodore 64? 


Ich besitze einen CBM 3032 
mit Diskettenlaufwerk und 
Drucker. Beim Kauf eines Com- 
modore 64 möchte ich diese Pe- 
ripherie gerne mittels eines 
lEC-Bus-Interfaces weiterver- 
wenden. Hat schon jemand Er- 
fahrungen mit solchen Interfa- 
ces gesammelt, arbeiten sie zu- 
verlässig, und wie ist es um die 
mechanische Stabilität bestellt? 

Oliver Fischer 


Disketten beidseitig 
verwenden? 


Wenn man mit einem Büro- 
locher auf einer einseitig be- 
schreibbaren Diskette am lin- 
ken Rand eine Stanzung in Höhe 
des Schreibschutzes am rech- 
ten Rand vornimmt, läßtsich die 
Diskette beidseitig auf einer 
Floppy-Disk 1541 verwenden. 
Ist die Datensicherheit dabei 
gewährleistet, oder spricht et- 
was gegen diese Methode? 

Dipl.-Ing. M. Lohse 
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Die Floppy VC 1541 interes- 
siert sich nicht für das kleine In- 
dexloch in der Diskette. Andere 
Floppystationen benutzen die- 
ses Loch zur internen Steuerung 
und Synchronisation. Deshalb 
funktioniert der Trick bei sol- 
chen Laufwerken nicht. Bei der 
VC 1541 gibt es jedoch keine 
Probleme. Allerdings ist beiein- 
seitig beschreibbaren Disketten 
auch nur eine Seite durch den 
Hersteller geprüft. Die zweite 
Seite kann daher unter Umstän- 
de fehlerhafte Sektoren enthal- 
ten, die aber vom Floppy-Be- 
triebssystem dann nicht benutzt 
werden. Wenn Sie nach dem 
Formatieren beim Listen der Di- 
rectory die Meldung »664 Blocks 
free« sehen, sollte jedoch die 
Datensicherheit einigermaßen 
gewährleistet sein. 

Für sehr wichtige Aufzeich- 
nungen empfiehlt sich jedoch 
immer die Verwendung doppel- 
seitig geprüfter Disketten. 


BEER 
ne 
Probleme mit 
Speichererweiterung 


Neulich habe ich mir eine 16- 
KByte-RAM-Erweiterung für 
meinen VC 20 gekauft, Als ich 
aber versuchte, ein Spiel, das 
für 3 KByte-RAM und einen Joy- 
stick gedacht ist, laufen zu las- 
sen, funktionierte es nicht, ob- 
wohl ich einen Joystick habe. 
Wer kann mir helfen? 

Daniel Hüller 


Beim VC 20 liegt der Bild- 
schirmspeicher je nach RAM- 
Erweiterung in verschiedenen 
Adreßbereichen. Daher laufen 
viele Programme für die Grund- 
version nicht mit Speichererwei- 
terung. Einfache Lösung für das 
Problem: Das Steckmodul ent- 
fernen. 








RESET über User-Port? 
Um bei meinem Commodore 
64 nach einem Spieleinanderes 
Programm zu laden, mußin den 
meisten Fällen der Computer 
aus- und dann wieder einge- 
schaltet werden. Kann man das 
umgehen, indem man kurzzei- 
tig Pin 1 und 3 des User-Ports 
miteinder verbindet, oder führt 


dies zu einer Beschädigung des 
Computers? 


Walter Stiller 


Pin | des User-Ports liegt an 
Masse, Pin 3 ist die RESET 
Leitung, Stellt man kurzfristig ei- 
ne Überbrückung her (zum Bei- 
spiel mit einer Büroklammer 
oder ähnlichem), dann wird ein 
RESET ausgelöst, wie der Com- 
puter ihn auch nach dem Ein- 
schalten durchführt. Der RESET 
an sich ist ungefährlich. Falls 
man jedoch beim Manipulieren 
am User-Port unabsichtlich an- 
dere Pins miteinander in Verbin- 
dung bringt, kann dies zu Be- 
schädigungen des VIA-Bau- 
steins führen. Es empfiehlt sich 
daher den Einsatz eines kleinen 
Tastschalters. 





In der Ausgabe 8/84 zeigen 
wir übrigens verschiedene 
Möglichkeiten, Reset-Tasten an- 
zubringen. 


nee 
Nochmals D0S 5. 


Der Artikel über das DOS 5.1 
in der Ausgabe 5/84 ist ja sehr 
interessant. Leider kann man 
bei den meisten kommerziellen 
Programmen aber nichts damit 
anfangen, da man aus diesen 
Programmen nur durch Ab- 
schalten des Computers wieder 
herauskommt. Aber dann ist 
auch das DOS 5.1 verloren, und 
es jedesmal neu einzuladen ist 
doch zu umständlich. Kann man 
da nichts dran machen? 

Heinrich Carstensen 


Das DOS 5.1 ist eigentlich nur 
bei der Programmentwicklung 
nützlich. Es erleichtert das Ar- 
beiten mit der Floppy, indem es 
Abkürzungen verwendet. Wenn 
man Spiele oder andere kom- 
merzielle Software benutzt, ist 
die Anwendung des DOS sowie- 
so wenig sinnvoll. 


64 KByte-Erweiterung 
für VG 20? 

Als VC 20-Anwender möchte 
ich mir eventuell eine 64-KByte- 
RAM-Karte kaufen. Welche der 
angebotenen Karten ist die be- 
ste?Gibtesbeider Anwendung 
Probleme, zum Beispiel beim 
Laden von Programmen für die 
Grundversion? Gibt es über- 
haupt eine Möglichkeit, die 64 
KByte voll zu nutzen, vielleicht 
als RAM-Disk? 

Jens Bümmerstede 


Wir werden in einer der näch- 
sten Ausgaben eine 64-KByte- 
RAM-Karte testen. Soviel vor- 
weg, eine Pseudo-Floppy (oder 
RAM-Disk) läßt sich durchaus 
realisieren 


Anamaha 7/1 ION 
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Schachprogramme 


Frage: Wer kennt Spielstärke 
Schachprogramme? 
Ausgabe: 5/84 
Peter Jugl 
In einem aktuellen neutralen 
Vergleich in England wurden 
die folgenden Schachprogram- 
me für den C 64 unter Turnierbe- 
dingungen (= 3 min/Zug) gete- 
stet: SARGON II, CHES 7.0, CO- 
LOSSUS 2.0 und GRANDMA- 
STER. Jedes Programm spielte 
dabei gegen jedes je einmal mit 
weiß und schwarz. Dabei wurde 
folgendes Endergebnis erzielt: 





Programm 
l. Grandmaster 4 
2. Chess 7.0 2 
3. Colossus 2.0 2 
4. Sargon II = 
Wie Herr Wacker aber richtig 
schrieb, sind alle heutigen 


Schachprogramme für Home- 
computer und selbst die neue- 
stenSchachcomputernnochnicht 
inder Lage, gegen gute Vereins- 
spieler zu bestehen. Entschei- 
dende Besserung dürfte erst mit 
modernerer Hardware (z.B. 
16/32-Bit Prozessor) zu erwarten 
sein. Fritz Schäfter, Kingsoft 


Komma als Satzzeichen 

Frage: Wie kann ich bei dem 
INPUT-Befehl das Komma als 
Satzzeichen verwenden? 
Ausgabe: 5/84 

Gerhard Giessmann 

Kommata bei INPUT einzuge- 
ben funktioniert durchaus, vor- 
ausgesetzt die Eingabe steht in 
Anführungszeichen. HALLO, 
WIE GEHT'S? geht nicht, »HAL- 
LO, WIE GEHT'S% aber schon. 
Die Anführungszeichen stehen 
nachher nicht in der Variablen, 
sie lassen den Computer ledig- 
lich dasKomma als dasansehen, 
was es sein soll: Teil des einge- 
gebenen Strings. Das gleiche 
gilt für den Strichpunkt und den 
Doppelpunkt. Enthält die Einga- 
be selbst auch Änführungszei- 
chen heißt es aufpassen: Das er- 
ste Anführungszeichen in der 
Eingabe hebt das Änfangsan- 
führungszeichen wieder auf, ein 
nachfolgendes Komma würde 
wieder als Trennzeichen inter- 
pretiert. »ICH HEISSE »WRXL«, 
UND DU% ginge durchaus. Das 
erste AÄnführungszeichen ist 
zwar durch das zweite aufgeho- 
ben, dann folgt jedoch noch ein 
drittes, das dem Computer wie- 
der sagt: es folgt ein reiner 
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String. »NAME: »MEIER, AN- 
DREAS« ginge nicht. Der Dop- 
pelpunkt wird zwar nicht stören, 
wohl aber das Komma. Textteile, 
die selbst in ÄAnführungszeichen 
stehen dürfen also keine Trenn- 
zeichen enthalten (\:). 

Metin A. Savignano 


ers] 
Zehnertastatur für G 64 


Frage: Gibt es eine zusätzli- 
che Zehnertastatur (Ziffern- 


Gewonnen Remis Verloren Punkte 


2 _ 5 
3 1 3,5 
2 2 3 
1 5 0,5 
block) zum Anschluß an den 
C 64? 
Ausgabe: 4/84 

Arndt Grass 

Die Firma Computertechnik 

Hartmann, Bismarckstraße 5 in 
6360 Friedberg 1, Tel. 0603// 
14863, bietet für 89 Mark plus 
Versandkosten eine solche Ta- 
statur an. Sie besitzt 20 Tasten, 
nämlich Zehnerblock, Punkt, 
Komma, Leer- und ReturnTaste 
sowie die Buchstaben A bis F 
(zur Verwendung bei hexadezi- 
maler Eingabe). Die Tastatur ist 
sowohl für den C 64 als auch für 
den VC 20 zu verwenden. 

Gero Morres 


Be 
Bee 
Steckmodule 
abspeichern? 


Beim VC 20 liegt der Modul- 
bereich von $A000 bis $BFFF 
und läßt sich mit folgender Ein- 
gabe auf Diskette kopieren: 
POKE 43,0 : POKE 44,160 : POKE 
45,0 : POKE 46,192 : SAVE 
»(Name)»,8. 

Wer kann mir mitteilen, wo 
der Modulbereich meines Com- 
modore 64 liegt und ob es eine 
ähnliche Routine zum Abspei- 
chern dieses Bereichs auf Dis- 
kette gibt? 

Hartmut Götze 

Der Steckmodulbereich beim 
Commodore 64 liegt von $8$OOO 
bis $9FFF. In der obengenann- 
ten SAVE-Routinen müssen da- 
her der POKE-Wert 160 durch 
128 und der Wert 192 durch 160 
ersetzt werden. Allerdings ha- 
ben die Hersteller von Steckmo- 
dulen in der Regel einige Siche- 
rungen gegen unerlaubtes Ko- 
pieren eingebaut. 


Sprachausgabe 
mit VG 20 


Frage: Wer kennt ein Pro- 
gramm zur Erzeugung von Spra- 
che auf dem VC 20? 

Ausgabe: 5/84 
Georg Brandt 

Die Firma Adman Electronics 
Ltd., Ripon Way, Harrogate 
N.Yorks. HG 12AU in Großbritan- 
nien bietet für den VC 20 / V 64 
einen Speech-Synthesizer für 
englische Sprachausgabe zum 
Preis von 49,95 Pfund an. 

Spiele dafür sind von Bugbyte 
(Twin Kingdom Valley), Voyager 
(Attack, Attack) und Thor Com- 
puter Software (3D Silicon Fish) 
schon im britischen Fachhandel 
erhältlich. 

David Twigg-Flesner 





Wollen 


Veröffentl; 
Seite Ntlichen 


#-Anweisungen laufen meine 
Programme nun völlig störungs- 
frei. Hans-Jürgen Stadelmann 


Rechengenauigkeit 


Frage: Wie erklärt sich der 
Unterschied in der Rechenge- 
nauigkeit von Taschenrechnern 
und Computern? 

Ausgabe: 5/84 
Albert Bartels 

Ihre Antwort zur Leserfrage ist 
natürlich richtig. Die Rechenge- 
nauigkeit des Computers ist ge- 
ringer. Ällerdings wurde die 
Frage nur teilweise beantwortet. 
Das Ergebnis der Berechnung 
des Computers wird in Bogen- 


a 
Such Fragen 


'hne 7 


Grafik mit VC 66 


Frage: Wie kann man verhin- 
dern, daß der VC 1515 Drucker 
von Zeit zu Zeit mit der Fehler- 
meldung »DEVICE NOT PRE- 
SENT ERROR« aussteigt? 
Ausgabe: 5/84 

Joachim Bolle 

Das Problem läßt sich auch 
umgehen, wenn man alle PRINT 
#-Anweisungen durch normale 
PRINT-Befehle ersetzt. Zu die- 
sem Zweck muß die Ausgabe 
mit der CMD-Anweisung auf 
den Druckerkanal umgeleagt 
werden. 

In meinen Programmen erfol- 
gen Ausgaben auf dem Drucker 
also nichtmehr so: 

OPEN 4,4 : PRINT#4, "Test": 
CLOSE 4, 

sondern in der folgenden Form: 
OPEN 4,4:CMD4: PRINT "Test" 
: PRINT#4 : CLOSE 4 

Durch den Wegfall der PRINT 





maß ausgegeben. Die meisten 
Taschenrechnern berechnen je- 
doch in Gradmaß. 

Um das Ergebnis des Compu- 
ters in Grandmaß zu erhalten 
muß folgende Umrechnung er- 
folgen, wobei für x der jeweilige 
Winkel, für pi 3.14159265 einge- 
setzt werden muß: 

Gradmaß Bogenmaß 
Sinx = Sin (x*pi/180) 
Beispiel: Sin 45 = 45*3.141592 
65/180) 


Siegfried Dietrich 





























kaum ein Hersteller von Heim- 
computern zu einer Normung 
der Verbindungsports durchgerun- 
gen hat, ist sicher jedem CG 64- 
Besitzer bekannt. Wer einmal ver- 
sucht hat, einen anderen, als einen 


D: Tatsache, daß sich bisher 


Commodore-Drucker an seinen 
Computer anzuschließen, wird fest- 
gestellt haben, daß dies nicht ganz 
unproblematisch ist. Weder am 
Drucker, noch am © 64 befindet sich 
ein Ausgang, derdemanderen auch 
nurim entferntesten ähnelt. Daaber 
gerade die Drucker von Fremdher- 
stellern oft mitüberlegenen Leistun- 
gen aufwarten können, ist ein stän- 
dig wachsender Markt von Schnitt- 
stellen verschiedenster Konstruk- 
tionsweisen entstanden. 

Das Hauptunterscheidungsmerk- 
mal bei diesen Schnittstellen ist die 
Art der Datenübertragung und -an- 
passung. Zum einen werden soge- 
nannte Softwarelösungen angebo- 
ten, beidenen die Anpassungender 
Daten mit Hilfe von ladbarer bezie- 


hungsweise auf Eproms steckbarer 
Software im Computer selbst vorge- 
nommen und über den User-Port 
zum Drucker gesendet wird. Zum 
anderen gibt es die Hardwarelösun- 
gen (Bild ]), die, mit eigenem Prozes- 
sor versehen, die Datenanpassung 
aufeiner externen Platine durchfüh- 
ren und ausnahmslos den seriellen 
Bus zur Datenübertragung verwen- 
den. 


Der Testablauf 


Getestet wurden natürlich sowohl 
Hard- als auch Softwareschnittstel- 
len (Bild 2). Die Vertreter der Hard- 
wareseite waren das Görlitz-Inter- 
face, zwei ungleiche Versionen von 
Wiesemann und das weit verbreite- 
te Data Becker-Interface. Auf der 
Softwareseite traten die Eprom-Ver- 
sionen von Kalawsky, Bockstaller 
und die Diskettenversion der in die- 
sem Heft beschriebenen Schnittstel- 
le unseres Lesers Helmut Eyssele, 
zum Test an. 





jet De, e 
noch das geiene ist das best 


Erstes Testkriterium waren alle in 
den zugehörigen Bedienungsanlei- 
tungen angegebenen Funktionen. 
Zusätzlich mußten die Kandidaten 
noch zwei Sonderprüfungen able- 
gen: Ihre Verträglichkeit mit einer 
Reihe von bekannten Textverarbei- 
tungsprogrammen (siehe Bild 3) und 
ihre Fähigkeiten bei der Erstellung 
einer Hardcopy vom Bildschirmin- 
halt (was noch für Überraschungen 
sorgte). Da die einzelnen Testteil- 
nehmer über die verschiedensten 
Befehle zur Ansteuerung ihrer 
Funktionen verfügen, war es nicht 
sinnvoll, ein einheitliches Testpro- 
grammzuschreiben. Eswurdeaber 
trotzdem versucht, ähnliche Funktio- 
nen zu vergleichen. 


Der Alleskönner 


Mit zirka 340 Mark nicht gerade 
das billigste, stellte sich das Görlitz- 
Interface zum Test. Diese Hardwa- 
relösung ist zum Einbau in einen Ep- 
son MX/RX/FX 80-Drucker vorge- 
sehen. Der Einbau ist, auch für tech- 
nische Laien, problemlos, denn die 
Platine (Bild 1) wird lediglich in den 
geöffneten Drucker eingesteckt 
und ist sofort betriebsbereit. Der 
Epson wird fortan wie ein Commo- 








Bild 7, De, 


dore-Drucker angesprochen. Die 
Commodore-eigenen Steuerzei- 
chen werden dabei, wie gewohnt, 
als reverse Grafiksymbole ausge- 
druckt. Dies deutet darauf hin, daß 
auch die Grafikzeichen dem 
Drucker keine Schwierigkeiten be- 
reiten. Der eingebaute Selbsttest 
(nicht der des Druckers) zeigt den 
gesamten neuen Zeichensatz. Wem 
das aber immer noch zu wenig ist, 
hat die Gelegenheit den gesamten 
CBM-Zeichensatz in bis zu vierzig 
Variationen aus doppelter Breite, 
doppelter Höhe und reverser Dar- 
stellung auszudrucken. Ferner ver- 
fügt das Görlitz-Interface über einen 
Grafik-Modus, in dem alle Zeichen, 
deren Code größer als 127 ist, als 
senkrechte Punktreihe aufgefaßt 
werden. Durch ÄAneinanderreihen 
vieler dieser Reihen können belie- 
bige Zeichen gedruckt werden. 
Daß die Steuer- und Formatierungs- 
befehle, wiesieimEpson-Handbuch 
beschrieben sind, in jedem Modus 
erhalten bleiben, gefiel beim Test 
besonders. 

Die letzte Station unserer Testrei- 
he, der Bildschirmausdruck, wurde 
mit besonderer Spannung erwartet. 
Die Aufgabe lautete: Mit den in der 
Data Becker-Supergrafik und Si- 
mons Basic enthaltenen Hardcopy- 
routinen in möglichst kurzer Zeit ei- 
nen genauen Abdruck des Bild- 
schirms auf das Papier zu bringen. 
Nach der Vorbereitung des Interfa- 





ces durch die folgenden Basic- 
Zeilen: 

100 OPEN 1,4 :REM Druckerkanal 
öffnen 

110 PRINT #1CHR$(27)"V":REM 
VCEI Grafic 

120 PRINT#1CHRS$(08):REM 7- 
Nadel Einzelp. 

130 OPEN9,4,9''7':REM Zeilenabst. 
auf 0 

140 Copy:REM Simons Basic Hard- 


copy 

150CLOSEI:CLOSES:REM Drucker- 
kanschl. 

160 END 

konnte der Ausdruck beginnen. Ein 
kleines Testprogramm erstellte die 
auszudruckende hochauflösende 
Grafik und der Drucker begann sei- 
ne Arbeit. Nach zirka 40 Sekunden 
war der Bildschirminhalt auf Papier 
verewigt, allerdings war der Aus- 
druck etwas klein. Aber auch hier 
bietet das Görlitz VCEI eine Verän- 
derungsmöglichkeit an: Durch Ein- 
fügen einer zusätzlichen Zeile ist ei- 
ne variable Breite des Ausdrucks 
möglich. Bei dieser Fülle von An- 
wendungsmöglichkeiten erscheint 
es fast schon selbstverständlich, 
daß auch bei der Konzeption der 
Platine an den Anwender gedacht 
wurde. So ist beispielsweise der se- 
rielle Bus am Interface doppelt vor- 
handen, damit der Drucker nicht 
das letzte angeschlossene Gerät 
sein muß. Die mögliche Abschalt- 


barkeit der Schnittstelle ist dann 
sinnvoll, wenn der Drucker auch 
noch an anderen Computern einge- 
setzt werden soll. Man erspart sich 
so den Ausbau des Interfaces. Eine 
Besonderheit, mit der sonst keine 
andere der im Test befindlichen 
Schnittstellen aufwarten konnte, ist 
der eingebaute Pufferspeicher von 
zwei KByte. Dies ist besonders ange- 
nehm beim Arbeiten mit Textverar- 
beitungsprogrammen, da bereits 
weitergeschrieben werden kann, 
während der Drucker noch arbeitet. 
Beim Test der Kooperation mit den 
Textverarbeitungsprogrammen gab 
es in keinem Fall Probleme beim 
Ausdrucken der Texte. 

Insgesamt machte das Görlitz- 
Interface einen hervorragenden 
Eindruck. Beim ständigen Arbeiten 
mit dem Drucker vergißt man nach 
einiger Zeit vollkommen, daß der 
Epson FX 80 eigentlich nichtspeziell 
für den Commodore 64 konzipiert 
wurde. 


Die Düsseldorfer 


Lösung 


Für den Einbau des VCI von Data 


Becker gilt das gleiche, wie für das 
Görlitz-Interface. Leider hatmanbei 
Data Becker vergessen, den seriel- 
len Bus durchzuführen, so daß der 
Drucker das letzte Gerät sein muß. 
Wie aus Bild 3 ersichtlich ist, sind 
Listing-Modus, Grafik- und reverse 
Zeichen sowie der Direkt-Modus 
verfügbar und über Sekundär- 
adressen einzustellen. Auch ein 
spezieller Grafikmodus. Die Frage, 
ob diese Grafikfähigkeit aber auch 
für einen Bildschirmausdruck genü- 
gend war, ließ die Redaktion voller 
Erwartungen an den Hardcopytest 
herangehen. Naheliegend war es 
natürlich, das Hilfsprogramm aus 
dem gleichen Hause, die Supergra- 
fik, zu verwenden. Getreulich den 
Worten der Änleitung folgend, ver- 
suchten wir mit dem Befehl für Acht- 
Nadel-Drucker, ein Bild zu kopie- 
ren. Das Ergebnis war ernüchternd, 
denn der Drucker regte sich zwar, 
aberdaswaserdruckte, sah aus wie 
Nebel über London. Erst als wir es 
mit dem Sieben-Nadel-Hardcopy- 
befehl versuchten, hatten wir Erfolg. 
Von diesem Erlebnis angespornt 
versuchten wir es auch noch mit Si- 
mons Basic. Nach dem Eingeben 
des folgenden kleinen Programms 
klappte es auf Anhieb. 

100 OPEN 14:REM Druckerkanal 
öffnen 

110 PRINT#1CHRS$S(@):;REM Grafik 
Modus 






nz 
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120 PRINT #1CHR$(26):REM Grafik 
Byte wiederh. 
130 Copy: REM Simons Basic Hard- 


copy 
140 CLOSEI:REM Druckerkanal 
schließen 

Was wir nicht erwartet hatten: Es 
gab bei den Zeitmessungen für die 
Hardcopyausdrucke enorme Unter- 
schiede zwischen den einzelnen 
Schnittstellen. Für das gleiche Bild 
benötigte das Data Becker-Interface 
sechsmal länger (zirka 4 Minuten) 
als das Görlitz-Interface. Dies ist 
wahrscheinlich damit zu erklären, 
daß durch das VCI ein Commodore 
1526 simuliert wird (ohne dabei auf 
die Vorzüge des Epson-Druckers zu 
verzichten), der aber selbst mit neu- 
em ROM nur ein frei definierbares 
Zeichen besitzt. Das Zusammen- 
spiel mit den ausgewählten Textve- 
rarbeitungsprogrammen funktio- 
nierte auch mit dem VOCI einwand- 


Görlitz 
Computer- 
bau VCEI 


342, — 


Hersteller (Typ) 


Merkmal 


Preis ca: 


Artder Hardware 


Schnittstelle 

Einbau in 
Epson- 
Drucker 


Form der 
Schnittstelle 


Grafikzeichen Ja Ja 
Reverse Zeichen Ja Ja 
Listing Modus Ja Ja 
Direkt Modus Ja Ja 


4 4 
Geräteadresse 
5 


Grafikfähigkeit Ja Ja 


Hardcopy mit Ja mit 


Simons Basic 


Zeitbedarf für eine 
Hardcopy ca. 


Ja 


Ja 
Ja 


Wordpro 3+ 
Wordpro 1526 Ja 


Druck mit CP/M Ja 


Bild 3. Die Vergleichstabelle der Testkandidaten 


1A ık-ra 


Wiesemann Wiesemann Data Becker 


(Typ 9200 
für NEC) 


298,— 


Hardware 


externin 
eigenem 
Gehäuse 


Ja mit DB 
Supergrafik 


Ja, mit 
Simons B. 


4:00 


frei. Wer aber lieber eigene Texte 
eingeben, beziehungsweise in sei- 
ne Programme einbauen will, wird 
die Funktion »Festlegen der Druck- 
position« des VCI bald nicht mehr 
missen wollen. Durch diese Funk- 
tion ist es möglich, die Punktposi- 
tion, ab der ein Text auf dem Papier 
gedruckt werden soll, festzulegen. 

Bis auf die etwas langsame Hard- 
copy ist dem Data Becker-Interface 
wenig Negatives nachzusagen, 
wenn es auch nicht ganz die Mög- 
lichkeiten der Görlitz-Schnittstelle 
bietet. Dafüristesaber mit298Mark 
auch um 40 Mark billiger als das 
Görlitz-Pendant. Das ist natürlich im- 
mer noch ein stolzer Preis. 


Zwei ungleiche Brüder 


Die nächsten beiden Testgeräte 
von Wiesemann sehen zwar äußer- 


(Typ 9200 
für Epson) 


248,— ohne 
298,— mit 
Netzteil 


(VCH 


298,— 50,— 


Hardware Hardware 


Einbau in 
Epson- 
Drucker 


externin 
eigenem 
Gehäuse 


Nein Ja Ja 
Nein Ja Ja 
Nein Ja Ja 
Ja Ja Ja 
4 4 


Eyssele 


Software 


Diskette 
und Kabel 
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lich vollkommen gleich aus, inihren 
Leistungsmerkmalen unterschei- 
den sie sich aber erheblich. Das in- 
telligentere der beiden hat den Na- 
men VC 20/CBM 64-Interface Typ 
9200 NEC und ist für NEC und kom- 
patible Drucker vorgesehen. Sein 
Bruder verzichtet auf den Zusatz 
NEC im Namen und auch auf so 
manche Fähigkeit. Er ist für die An- 
steuerung eines Epson-Druckers 
vorgesehen. Die Installation dieser 
Schnittstellen ist vorbildlich einfach, 
denn sie werden nurin den Eingang 
des Druckers, beziehungsweise 
den seriellen Ausgang desC 64 ein- 
gesteckt. Lediglich bei der Version 
für Epson-Drucker ist für die not- 
wendige Stromversorgung des In- 
terfaceszu sorgen. Dafür eignetsich 
am besten das gegen Aufpreis er- 
hältliche Netzteil. Wer aber mit Löt- 
kolben und Meßgeräten vertraut ist, 
wird in der Bedienungsanleitung 


Kalawsky Bockstaller 


Ing. Büro 


85,— + 
(Material 
und Kabel) 


Software Software 


EPROM 
und Kabel 


EPROM 
und Kabel 


Nein Nein 


Nein Nein 
Nein Nein 


Ja Ja 


4/16/17/18/19 4 4 


mit beson- 


5 5 


Ja Nein 


Ja mit DB Nein 


Supergrafik 
Ja, mit 
Simons B. 


4:00 


Ja 


Ja 
Ja 





deren Funk- 
tionen 


Nein 


Ja, von bel. 
Bild auf 
Tastendruck 


0:45 einf. 
2:30 dopp. 
Ja 


Ja 
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des Interfaces noch auf eine zweite 
Möglichkeit hingewiesen: die Ent- 
nahme der Versorgungsspannung 
von der Druckerplatine. Dieser Ein- 
griff erfordert allerdings größte Vor- 
sicht. Denn ein falscher Anschluß 
kann den vIod« einer ganzen IC- 
Familie bedeuten. 

Die Merkmale der Epson-Version 
sind rasch beschrieben, da sie sich 
lediglich auf die Ausgabe von Tex- 
ten beschränken. Hierfür ist diese 
Schnittstelle mit Groß- und Klein- 
schriftmodus, sowie einigen Textfor- 
matierungsbefehlen ausgerüstet. 
Durch die Bauweise als Hardware- 
schnittstelle tauchten keine Proble- 
me mit den zur Verfügung stehen- 
den Textverarbeitungsprogrammen 
auf. Die Darstellung von Grafik- und 
Steuerzeichen ist leider nicht mög- 
lich. In diesem Bereich bietet das 
9200 (NEC) die gleichen Funktionen 
wie das Data Becker VCI, kaum ver- 
wunderlich, wenn man weiß, wer 
der Hersteller des VOI ist: Wiese- 
mann. Der auffallendste Unter- 
schied vom 9200 NEC zum VCI ist 
die Möglichkeit, den Drucker in ei- 
nen 6-Punkt-Modus zu schalten. Da- 
durch bleiben Programme, die für 
den 1515 Commodore-Drucker ent- 
wickelt wurden, weiterhin verwend- 


ar. 

Im wesentlichen qilt für das 9200 
NEC-Interface das gleiche wie für 
das Data Becker-VCI. Lediglich auf 
den Einbau in den Drucker kann 
verzichet werden. 

Die Epson-Version des 9200 eignet 
sich vor allem für jenen Computer- 
besitzer, die sich auf das problemlo- 
se Ausdrucken von Texten be- 
schränken wollen. Allerdings liegt 
der Preis mit 248ohne und 298 Mark 
mit Netzteil unverhältnismäßig hoch. 


Der Außenseiter 


Besonders gespannt waren wir 
auf das Abschneiden der Schnitt- 
stelle unseres Lesers H.Eyssele im 
Vergleich zu den professionellen. 
Wie die Verbindung zwischen dem 
Computer und dem Drucker herge- 
stellt wird, braucht sicher nicht 
mehr erklärt werden, da dies ge- 
nauesstens in einem eigenen Bericht 
beschrieben ist. Ganz besonders 
gefallen haben uns die Möglichkei- 
ten des Listingausdrucks. Die Um- 
wandlung der Steuerzeichen in 
Klarschrift ist eine Funktion, die kein 
anderes Interface anbietet. Da- 
durch spart man sich beim Eintip- 
pen oder Korrigieren eines Listings 
das Nachschlagen der Steuercodes 
in der Vergleichstabelle. Die vorlie- 
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gende Version der Schnittstelle 
funktionierte zwar nur in Verbin- 
dung mit Vizawrite, kann aber si- 
cherlich ohne großen Aufwand an 
andere Programme angepaßt wer- 
den. Eine Hardcopy warleidernoch 
nicht möglich. Hier geht der Aufruf 
analle Programmierer, diesetwaals 
Teil unseres Programmierwettbe- 
werbs »Programmbibliothek« zu er- 
gänzen. (Die Redaktion wartet ge- 
spannt darauf). 

Zum Preis von zirka 50 Mark (für 
das Kabel) bietet dieses Interface 
Leistungsmerkmale, wie sie eigent- 
lich nur von professionellen Schnitt- 
stellen zu erwarten sind. Damit si- 
cherte sich diese Lösung einen der 
vorderen Plätze der Bewertung. 


Der Hardcopyspezialist 


Die Kalawsky-Schnittstelle, deren 
Software nicht von Diskette, sondern 
durch ein Steckmodul in den C 64 
eingeladen wird, überraschte 
durch eine komfortable Hardcopy- 
routine, Ein beliebiger Bildschirmin- 
halt kann durch einfachen Tasten- 
druck (CTRL-) auf den Drucker 
übertragen werden. Das Hardcopy 
benötigt etwa die gleiche Zeit wie 
das Görlitz-Interface mit Simons Ba- 
sic. Ein Drücken der Tasten CTRL 
und x ermöglicht sogar ein großes 
Hardcopy aufdie gesamte Blattbrei- 
te. Da manche Bilder als inverser 
Ausdruck besser aussehen, kann 
das Hardcopy auch in dieser Form 
ausgegeben werden. Natürlich ist 
auch die Textausgabe mit der Ka- 
lawsky Schnittstelle möglich. Dafür 
sollte man allerdings am besten ein 
Textverarbeitungsprogramm ver- 
wenden, da beider direkten Ausga- 
be von Print-Zeilen im Groß/Klein- 
schriftmodus des C 64 Großbuchsta- 
ben als kursive Zeichen gedruckt 
werden. Dadurch leidet die Lesbar- 
keit doch stark. Mit 85 Mark für das 
Eprom, wo noch die Kosten für ein 
Verbindungskabel (zirka 45 Mark) 
hinzukommen, liegt der Preis sicher 
nicht in unerschwinglichen Höhen. 

Fürjeden, der sowohl Texte verar- 
beiten, als auch Hardcopys von be- 
liebigen Bildern anfertigen möchte, 
ist dieses Interface ein nützliches In- 
strument. 

Der äußeren Form des Kalawsky- 
Interface ähnlich präsentiert sich 
das Bockstaller-Interface. Die Be- 
standteile sind eine Epromplatine 
und ein Verbindungskabel. Diese 
Lösung macht sowohl Textausgaben 
von Basic aus, alsauch mit dem Text- 
verarbeitungsprogramm Vizawrite 
möglich. Der Groß/Kleinschriftmo- 





dus bleibt in jedem Fall erhalten. 
Für die Ausgabe von Grafiken und 
Hardcopys ist diese Schnittstelle al- 
lerdings weniger geeignet. Mit die- 
sen Leistungen ist sie bei einem 
Preis von zirka 130 Mark zwar etwa 
gleich teuer wie das Kalawsky- 
Interface, besitzt aber nicht deren 
komfortable Hardcopyroutine, 


Die Bewertung 


Der Test hat gezeigt, daß jede 
Schnittstelle mit besonderen Fähig- 
keiten und Vorzügen aufwarten 
kann. An der Spitze des Testfeldes 
plazierten sich unserer Meinung 
nach die drei Hardwarelösungen 
von Görlitz, Data Becker und Wiese- 
mann (NEC). Dabei belegte das 
Görlitz-Interface wegen seiner uni- 
versellen Anwendbarkeit und dem 
vorbildlichen Aufbau der Platine 
den ersten Platz. Zwischen den bei- 
den Interfaces von Data Becker und 
Wiesemann war der Unterschied 
nur gering. So wurde salomonisch 
beschlossen, diesen beiden Schnitt- 
stellen den zweiten Platz gemein- 
sam anzuerkennen. Für die Überra- 
schung sorgte der Außenseiter: Der 
dritte Platz konnte an die Lösung un- 
seres Lesers vergeben werden, und 
daslagnichtnur an dem unübertrof- 
fenen Preis-Leistungsverhältnis. 
Knapp geschlagen plazierte sich 
das Kalawsky-Interface auf dem 
vierten Platz. Mit seiner Hardcopy- 
routine auf Tastendruck und der 
Möglichkeit der Textverarbeitung 
bietet es zu einem annehmbaren 
Preis eine qute Leistung. Die 
Schlußlichter des Testes bildeten 
das Wiesemann (Epson) und das 
Bockstaller-Interface. Obwohl sich 
das 9200 (Epson) zur reinen Textver- 
arbeitung hervorragend eignet, ist 
es mit einem Preis von zirka 298 
Mark doch etwasteuer geraten. Das 
Bockstaller-Interface ist eine Lösung 
für alle, die ohne große finanzielle 
Ausgabe Texte ausdrucken wollen 
und sich die Zeitzum Laden der Soft- 
ware sparen wollen. 

Sicherlich muß jeder potentielle 
Käufer eines Interfaces sich über 
seine eigenen Änwendungszwecke 
im Klaren sein. Auch spielt der zur 
Verfügung stehende Geldbetrag ei- 
ne wesentliche Rolle. Die Entschei- 
dung für eines der getesteten Inter- 
faces ist deshalb immer eine indivi- 
duelle, bei der nicht vergessen wer- 
den sollte, daß die Ansprüche an 
den Drucker mit der Zeit bestimmt 
nicht geringer werden. 

(Arnd Wängler) 
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der Datenfernübertragung 

eintreten zu können, brau- 
chen Sie, neben Ihrem Computer 
und einem Monitor (Fernseher), 
drei zusätzliche Werkzeuge. Als 
erstes wäre ein Modem oder ein 
Akustikkoppler für die Verbin- 
dung zum Telefon, notwendig, 
Dann benötigen Sie ein Interface, 
um die Verbindung zwischen 
Akustikkoppler und Computer 
herzustellen. Das letzte, fast wich- 
tigste Werkzeug ist die Treiber- 
software, Erst dann können die 
Daten auch tatsächlich übertra- 
gen werden. Eines dieser Pro- 
gramme ist Teleterm von Softwa- 
re Express, 
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Bei diesem Menü fallen zwei 
Punkte besonders auf, Zum einen 
ist dies die Funktion »Parameter 
ändern«. Ruft man die Funktion 
»Parameter ändern« auf, dann 
können folgende Einstellungen 
verändert werden: die Übertra- 
gungsgeschwindigkeit (Baudra- 
te), die Parität, die Wortlänge, die 
Anzahl der Stopbits, den Hand- 
shake-Betrieb und die Sendeart 
(Vollduplex/Halbduplex). 

Die Bedeutung der oben er- 
wähnten Begriffe entnehmen Sie 
‚bitte unserer rsichtstabelle, 
Der zweite auffällige Punkt ist 
die Möglichkeit, die Funktionsta- 
sten zu belegen. Besonders die- 
ses Statement macht das Pro- 
gramm sehr komfortabel. Man 
kann die Funktionstasten zum 
Beispiel mit häufig vorkommen- 
den Textstrings belegen und sich 
so viel Tipparbeit ersparen. 


“Der Testbetrieb 


"Teleterm stellte sich während 
des mehrerer Wochen dauern- 
den Tests in der Redaktion als zu- 
verlässiges Werkzeug heraus. 
Der Test wurde mit dem RS232- 
Interface desselben Anbieters 
wie Teleterm und dem Epson 
CX-21 Akustikkoppler durchge- 
führt. Das Handbuch wurde nach 
kurzer Zeit beiseite gelegt. So 
leicht ist Teleterm zu bedienen. 
Betreibtman den Akustikkoppler 
allerdings über eine ältere Ne- 
benstellenanlage, kann es vor- 

‚kommen, daß die Abschirmung 
NUR NUN der Telefonleitungen nicht aus- 
INNININI INDIEN DIN reicht. Dies bewirkt, daß durch 
andere Leitungen falsche Zei- 
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chen eingelesen werden. Dieses 
Manko dürfte allerdings nur sehr 
schwer zu beseitigen sein und 
tritt nicht nur bei dieser Treiber- 
Die Menüpunkte sind im einzel- software auf. Auf der Nebenstel- 
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die V nen: 'lenanlage unseres Verlages tra- 
© — Daten empfangen mit Telefon ten im Testbetrieb jedoch keine 
3 — Parameter ändern Probleme dieser Art auf. 
le — Dateien anzeigen Das Programm Teleterm kostet 
‚üb — Dateien ausdrucken 119 Mark. Zu dem selben Preis 
LI — Funktionstasten belegen wird von Software Express auch 
knap — Funktionstasten-Übersicht ein RS-232-Interface angeboten. 
per — Vorbereiten von Briefen Dieses Interface ist natürlich 
Zu m — Dateien löschen auch unabhängig von Teleterm 
ül on. — Ende. verwendbar 00) 
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daß die Computer bald auch die 

Ubermittlung von Briefen und Mit- 
teilungen einschneidend verändern 
werden. Die großen Computerfir- 
men haben schon seit Jahren Syste- 
me in Betrieb, mit denen sie dem 
teuren Briefverkehr ausweichen. Es 
handelt sich um Electronic-Mail- 
Systeme, die oft weltweit ausgelegt 
sind und die Mitarbeiter in die Lage 
versetzen, jederzeit und blitzschnell 
miteinander zu kommunizieren. 
Bildschirmterminals und Personal 
Computer werden über Modem 
oder Akustikkoppler ans Telefon- 
netz angeschlossen. Ebenfalls ans 
Telefonnetz angeschlossen ist ein 
Zentralcomputer, auf dem ein Mail- 
Box-Programm läuft. Dieses Pro- 
gramm richtet den Mitarbeitern 
elektronische Briefkästen und Edi- 
tierplätze ein. Benutzerkennum- 
mern und Paßwörter ermöglichen 
es den Mitarbeitern, über ihre Ter- 
minals und PCs Mitteilungen abzu- 
rufen und zu senden, von jedem be- 
liebigen kommunikationsfähigen 
Terminal oder PC. Die »Zustellung« 
beziehungsweise Verwaltung der 
Mitteilungen erfolgt im Zentralcom- 
puter, der 24 Stunden am Tag an- 
sprechbar ist. 

Einige Computerfirmen wie Tan- 
dem haben ihr Electronic Mail Sy- 
stern den Mitarbeitern über dierein 
betriebliche Anwendung hinaus ge- 
öffnet. Die Begeisterung darüber ist 
groß. Neben technischen Fragen 
und Problemlösungen werden be- 
triebsintern auch Clubinformatio- 
nen oder Gesuche und Angebote 
für zum Beispiel Gebrauchtwagen, 


>. Ran 


| mmer deutlicher zeichnet sich ab, 





Wohnungen und ähnliches allen Be- 
triebsmitgliedern zugänglich ge- 
macht. 

Gegenwärtig sind Electronic- 
Mail-Systeme fast nur bei großen 
Cormputerfirmen im Einsatz. Termi- 
nals, PCs und Modems waren teuer. 
Entsprechende Zentralcomputer 
mit Mailbox-Programm ebenfalls. 
Der rasante technische Fortschritt 
im PC- und Homecomputerbereich 
hat diese Voraussetzungen im letz- 
ten Jahr einschneidend verändert. 
Preiswerte Personal und Homecom- 
puter sind über oft bereits einge- 
baute V.24-Schnittstellen kommuni- 
kationsfähig und in großen Stück- 
zahlen vorhanden. Neue, integrierte 
Modemchips haben Modems und 
Akustikkoppler in einen Preisbe- 
reich gebracht, in dem sie massen- 
haft Absatz finden können. 

In den USA und England zeigt 
sich jetzt ein sehr starker Trend zur 
breiten Nutzung von Electronic Mail. 
Zunächst waren es vor allem Unter- 
nehmen, die bei Rechenzentren 
Kapazitäten für Electronic Mail an- 
mieteten. Inzwischen gibt es auch 
mehrere Firmen, die Electronic 
Mail mit eindrucksvollen Erfolgen 
privaten Home- und Personal Com- 
puterbesitzern anbieten. Äbrufsoft- 
ware und entsprechende Modems 
für die Home- und Personal Compu- 
ter sind als preiswerte Paketange- 
bote, oft inklusive eines Electronic- 
Mail-Abbonnements, in allen Com- 
putershops erhältlich. Da Mailbox- 
Software (für die Zentralstation) in- 
zwischen auch für eine Reihe lei- 
stungsfähiger PCs preiswert verfüg- 
bar ist, gründen immer mehr Privat- 
personen und Clubs sogenannte 






Bulletin Boards, kleinere Electronic- 
Mail-Systeme, die in der Regel auch 
als Informationsdatenbanken aus- 
gelegt sind. 

Electronic Mail wird sich auch in 
der Bundesrepublik durchsetzen. 
Dies dürfte schneller geschehen, 
als auf den ersten Blick zu erwarten 
ist. Mächtig dazu beitragen wird ein 
neuer Service, den die Bundespost 
mit ungewohnter Geschwindigkeit 
und Innovationsfreude demnächst 
einführt. Es handelt sich um die Te- 
lebox, einen bundesweiten Electro- 
nic-Mail-Service für alle über Aku- 
stikkoppler oder Modem kommu- 
nikationsfähigen Personal Compu- 
ter, portable Computer, Terminals 
und natürlich auch Homecomputer. 

In Mannheim wird ein Telebox- 
Zentralcomputer installiert, der 
über das normale Telefonnetz oder 
über die Datex-Dienste zugänglich 
ist. Geboten wird ein Electronic- 
Mail-System mit beachtlichen Lei- 
stungsmerkmalen: 

Jeder Nutzer des Telebox-Systems 
erhält eine eigene Adresse, die ihn 
zusammen mit dem persönlichen 
Paßwort als berechtigten Nutzer des 
Systems ausweist und ihm dadurch 
das Eingeben und Auslesen von Mit- 
teilungen im System ermöglicht. 

— Mobilität bei ständiger Erreich- 
barkeit. Von jedem beliebigen Ort 
kann sich der Benutzer über die Da- 
texnetze oder das Telefonnetz an 
das System anschalten, auch mit ei- 
nem transportablen, akustisch ge- 
koppelten Datenendgerät, das in 
der Aktentasche mitgeführt und an 
jedem beliebigen Telefon benutzt 
werden kann. Eingegangene Mittei- 
lungen werden ausgelesen, eine 
Antwort beziehungsweise eine Mit- 
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teilung abgesetzt oder eine abge- 
legte Mitteilung aus dem Speicher 
abgerufen. 

— Einfaches Abspeichern und 
schnelles Wiederauffinden von Mit- 
teilungen (elektronischer Akten- 
schrank). Der Benutzer kann sich 
Ablagefächer anlegen, die er belie- 
big strukturiert und benennt. 

— Editieren und Formatieren von 
Texten. Ein umfangreicher Vorratan 
Befehlen erleichtert dem Benutzer 
das Erstellen von Texten, die eben- 
falls in wiederaufrufbare Dateien 
abgespeichert werden können. 

— Erleichterungen beim Absenden 
und Lesen von Mitteilungen. 

Mit der Angabe von Mehrfach- 
adressen läßt sich dieselbe Mittei- 
lung in einem Arbeitsgang an meh- 
rere Empfänger absenden. 
Adreß-Verteiler können vom Benut- 
zer selbst angelegt werden. 

Die Abfrage von Kopfzeilen erleich- 
tert die Übersicht, wenn mehrere 
Mitteilungen eingegangen sind. 
Das Weiterleiten von eingegange- 
nen Mitteilungen an andere 
Telebox-Adressen mit oder ohne Zu- 
setzen von Kommentaren erlaubt ei- 
ne rasche Bearbeitung. 

Das Beantworten von eingegange- 
nen Mitteilungen ist in vereinfach- 
tem Format möglich. 

Die Nutzung der Leistungen von Te- 
lebox kann zu rascherer und effi- 
zienterer Information zwischen den 
Partnern führen. Damit ist außer- 
dem Zeit- und Kostenersparnis ver- 
bunden. 

— Schwarzes Brett: Hier können In- 
formationen im System bereitgehal- 
ten werden, auf die entweder alle 
Benutzer oder bestimmte Gruppen 
von Benutzern zugreifen können. 
Dabei können Sparten mit beliebi- 
gen Namen eingerichtet werden, 
die vom Benutzer gezielt abgefragt 
werden. Informationen, die rasch ei- 
nen größeren Empfängerkreis er- 
reichen sollen, lassen sich auf diese 
Weise einfach zugänglich machen. 
— Verzeichnisse: Sie erleichtern das 
Herausfinden der Adressen der 
Partner, denen man Mitteilungen zu- 
leiten möchte. Es können Kurzna- 
men und firmeninterne Bezeichnun- 
gen als Referenzadressen festge- 
legt werden, die vom System in die 
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allgemeinen Adressen umgesetzt 
werden. 

Während bei Bildschirmtext die 
Vorbereitung Jahre in Anspruch 
nahm und die Testphase mit be- 
schränkter Teilnehmerzahl drei Jah- 
re lief, startet die Telebox praktisch 
aus dem Stand. Im August bis Sep- 
tember beginnt ein Teilnehmer-Test- 
Betrieb. Diese Phase wird subven- 
tioniert und ist für alle Interessenten 
offen. 

Da preiswerte Akustikkoppler 
und preiswerte Kommunikations- 
software für Home- und Personal 
Computer zum Teil schon auf dem 
Markt sind oder nicht mehr lange 
aufsich warten lassen werden, muß 
die Telebox bei jedem Computer- 
besitzer Freude aufkommen lassen. 
Was allerdings bisherüber die Tele- 
box bekannt ist, trübt die Freude et- 
was. Zielgruppe der Bundespost 


Die Telebox 


sind hauptsächlich große und mittle- 
re Unternehmen, denen die Tele- 
box eine verbesserte und preiswer- 
tere Kommunikation zwischen Au- 
ßendienst und Zentrale bringen soll. 
Bei den langen Laufzeiten und ho- 
hen Kosten des normalen Briefver- 
kehrs und der Immobilität des Telex 
ist dieses Ziel nicht schwer zu errei- 
chen. Mit einer nutzungszeitabhän- 
gigen Gebührenstruktur (vermut- 
lich 0.30 Mark pro Minute) und ei- 
nem monatlichen Mindestbetrag 
(vermutlich 80 Mark) ist der neue 
Service für die private Nutzung mit 
Home- oder Personal Computer zu 
teuer. 

Trotz der für die private Nutzung 
unfreundlichen Gebührenstruktur 
sollten Besitzer von Home- und Per- 
sonal Computern und speziell Besit- 
zer des © 64 den neuen Service be- 
grüßen. So wie die Einführung des 
PC durch die marktstarke IBM das 
Interesse und das Angebot an Per- 
sonal Computern verbreiterte, wird 
die Telebox den Weg zu einer Viel- 
zahl von Electronic-Mail-Systems 
und Bulletin Boards in der Bundes- 
republik ebnen. Bereits jetzt bieten 
private Unternehmen wie Time Sha- 
re, Digital Equipment, General Elec- 
tric und andere Electronic Mail an, 





natürlich noch für Firmenkunden 
und zu Preisen, die ähnlich liegen, 
wie bei der Telebox. Es werden 
neue Unternehmen auftreten, wel- 
che preiswerte, auf große Teilneh- 
merzahlen ausgerichtete Electro- 
nic-Mail-Services der Vielzahl von 
Homecomputer- und Personal Com- 
puter-Besitzern anbieten werden. 
Technisch und kommerziell gese- 
hen sind solche neuen Unterneh- 
mungen möglich und attraktiv. Hin- 
dernd wirkt sich gegenwärtig nur 
die Rechtsunsicherheit darüber 
aus, ob solche Services auf privater 
Basis zulässig sind. 

Die Post wäre gut damit beraten, 
Wettbewerb zuzulassen. Einmal 
wird ihre Basis an Gebühreneinnah- 
men verbreitert, da die Nutzer sol- 
cher Services auf alle Fälle das Lei- 
tungsnetz der Post in Anspruch neh- 
men müssen. Die Nachrichtenver- 
mittlung durch den Electronic-Mail- 
Service ist eine zusätzliche Dienst- 
leistung, die sich innerhalb der 
Grundstücksgrenzen, sogar inner- 
halb des Computers des privaten 
Anbieters vollzieht. Das Monopol 
der Post auf Grundstücksgrenzen 
überschreitende Kommunikation 
wird gar nicht in Frage gestellt, und 
alle Erfahrungen der letzten Jahre 
sprechen dafür, daß private und 
kleinere Unternehmen bessere 
Chancen haben als die Post, innova- 
tive Mailbox-Software zu entwickeln 
und zu realisieren. 

Im Bereich des Pakettransports 
konnten (nach einigen rechtlichen 
Schwierigkeiten) neue Unterneh- 
men wie UPS, Deutscher Paket- 
dienst und Ipec der Post Konkurrenz 
machen. Resultat ist ein wesentlich 
verbessertes Preis/Leistungsver- 
hältnis im Paketdienst. Auch beider 
Post, die im Wettbewerb jetzt eben- 
falls neue Dienstleistungen anbie- 
tet. 

Der Bereich der Telekommunika- 
tion ist für die zukünftige Entwick- 
lung der Volkswirtschaft bestimmt 
nicht weniger wichtig als der des Pa- 
kettransports. Gerade bei der Tele- 
kommunikation hat die Bundesrepu- 
blik viel aufzuholen. Sollte man es 
sich ausgerechnet dann leisten, auf 
die Dynamik des Wettbewerbs und 
das heißt den Erfindungsgeist und 
die Initiative neuer Unternehmen zu 
verzichten? (Hersch Fischler) 
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für den C64 


Dieses Programm ermöglicht es Ihnen, 
über eine RS232-Schnittstelle und Aku- 
stikkoppler oder Modem mit anderen 
Computern in Verbindung zu treten. Der 
Austausch von Daten, Nachrichten und 
ganzen Programmen ist möglich — 
ebenso die Abfrage von Datenbanken. 
Wir haben dieses Programm mit der 
Software-Expreß-Schnittstelle und dem 
Epson CX-21-Akustikkoppler getestet 
und waren von Anfang an begeistert. 


as Terminalprogramm 

bietet folgende Möglich- 
keiten: 
1. Die mit der Tastatur einge- 
gebenen Zeichen werden 
über die RS232-Schnittstelle 
zur Gegenstelle gesandt. 
2. Die von der Gegenstelle 
empfangenen Daten werden 
auf dem Bildschirm ange- 
zeigt. 
3. Die von der Gegenstelle 
empfangenen Daten können 
zur weiteren Bearbeitung in 
den »Terminal-Speicher« ge- 
schrieben werden. 
4. Diese gespeicherten Da- 
ten können dann wieder aus- 
gesandt, auf den Bildschirm 
oder Drucker ausgegeben, 
beziehungsweise auf Disket- 
te gespeichert werden. 
5. Dateien können von der 
Diskette, zur weiteren Bear- 
beitung, in den »Terminal- 
Speicher« geladen werden. 
6. Empfangene und im »Ter- 
minal-Speicher« befindliche 
Programme (als ASCII-Datei 
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gespeichert) könnenüberei- 
ne »Wandler«Software auf- 
bereitet werden. Hierbeibe- 
steht eine Kontroll- und Edi- 
tiermöglichkeit der einzel- 
nen Programmzeilen. 

7. Die Übertragungsparame- 
ter sind dem Standard ent- 
sprechend eingestellt. 
Durch Änderungderbeiden 
CHR$-Befehle in den 
»OPEN«-Anweisungen kön- 
nen andere Parameter ein- 
gestelltwerden. Die entspre- 
(chenden »OPEN«-Anweisun- 
gen befinden sich in Basic- 
Zeilennummer 10 + 50. Die 
Werte für das Kontroll- und 
Befehlsregister (l. und 2. 
CHR$ Befehl) sind im Com- 
modore Programmier-Hand- 
buch aufgeführt. 

Der Terminal-Speicher« 
belegt den Adressenbe- 
reich Hex 5000-9FFF. 

Der Basic-Speicher endet 
bei Hex 3FFF. 

Das Terminalprogramm 
wird mit Load »terminal«, 8 


10 PRINT"L EINEN MOMENT BITTE " 
20 FORX=16384T016995: READY : DS=DS+Y: POKEX 
„Y:NEXT 

30 IFDS<>68997THENPRINT"FEHLER IN DATAS: 
SOLL=68997 IST="DS:STOP 

40 POKES1,0:POKES2,64:POKESS,0:POKES6,64 
: CLR:F=0:60T0130 

50 POKES3280,5:POKES3281;5 :PRINT"g" 

60 OPEN2,2,0,CHR$ (6+32 ) +CHR$ (32+64+1 
28) :GET#2,A$ 

70 PRINTCHR$ (14) :PRINT"L" PRINT" DA 
TENBANKDIALOG MIT DEM C64" 

80 SYS14394 

90 CLOSE2: POKES3280,5:POKES3281 ,5:PRIN 
T"w":F=1: GOTO130 


100 OPEN2,2,0,CHR$ (6+32 ) +CHR$ (32+64+ 


128) :GET#2,A$:PRINT"L": PRINT" NEUSTART ! 


110 SYS1541& 
120 GOTOYFO 
150 PRINTCHR$ (14) :PRINT "(IT pppppB BB] 
MENUE" 
140 PRINT"MIBBBjl = BEDEUTUNG DER FUNKTI 
ONSTASTEN" 
150 IFF=OTHEN170 
150 FRINT"RRBI2 
ROGRAMM": GOTO180 
170 PRINT" KIRRBRI? 
ARTEN": GOTO180 
180 PRINT"ERRRRFB 
CHERTE 
190 PRINT" BBBl4 
CHERTE 
200 PRINT"ITEN" 
210 FRINT"ERRRRS EMPFANGENE UND GESPEI 
CHERTE DATEN AUF DISK. "3; 
220 PRINT"SPEICHERN" 
230 PRINT"IEBRBL = DATEN VON DISK. IN DE 
N SPEICHER SCHREIBEN “ 
PRINT"EBRB] BITTE WAEHLEN 1-5 " 
GETAS$: IFA$=""THEN2SO 
IFA£="1"THENS40 
IFAg="2"ANDF=1THEN100 
IFA$="2"THENF=1:60T050 
IFA$="3"THENS2O 
IFA$="4"THENS7O 
IFAF="S5" THENSSO 
IFAF="&"THEN7SO 
G0T0250 


ZURUECK INS TERMINALP 
TERMINAL. PROGRAMM ST 


EMPFANGENE UND GESPEI 
DATEN DRUCKEN 
EMPFANGENE UND GESPEI 
PROGRAMME AUFBERE"; 
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geladen und anschließend 
mit Run gestartet. Nach einer 
kurzen Wartezeit, während 
der Maschinenspracheteil 
angelegt wird, erscheint das 
Menü auf dem Bildschirm. 

Über das Menü und mit 
Hilfe der Funktionstasten 
werden alle Programmab- 
läufe gesteuert. 

Menüpunkt 1 erklärt die 
Bedeutung der Funktionsta- 
sten Fl bis F8, der —Taste 
und der RUN/Stop Taste. 
Funktionstaste Fl: 

Durch Betätigung werden 
empfangene Daten als 
ASCIN-Datei in den »Termi- 
nal-Speicher« geschrieben. 
Ein empfangenes Hex 02- 
Zeichen (Start of Text) be- 
wirkt ebenfalls ein Äbspei- 


chern. Zur Erinnerung än- 
dert sich die Rahmenfarbe 
des Bildschirmes in Braun. 
Funktionstaste F3: 

Die Betätigung bezie- 
hungsweise ein empfange- 
nes Hex 03-Zeichen (End of 
Text) beendet das Abspei- 
chen. Die Bildschirm- 
Rahmenfarbe wird wieder 
grün. 

Funktionstaste F5: 

Mit dieser Taste wird an 
den Anfang des Terminal- 
Speichers« zurückgesetzt 
und die erste Zeile (bis zum 
Return-Zeichen) auf den 
Bildschirm übertragen. 
Funktionstaste F7: 

Ein wiederholtes Drücken 
dieser Taste führt schrittwei- 
se bis ans Ende des Textes. 


Das Textendeistdurch+ ++ 
gekennzeichnet. Ein Spei- 
cherplatzende wird eben- 
falls durch + + + angezeigt. 
Funktionstaste F2: 

Mit dieser Taste wird ein 
Vorschreiben in den »Termi- 
nal-Speicher« eingeleitet. 
Die Zeichen werden gleich- 
zeitigaufdem Bildschirm an- 
gezeigt. Hierbei sind die 
Cursor-Tasten außer Funk- 
tion. Falsch eingegebene 
Zeichen können mit der Del- 
Taste gelöscht werden. 
Funktionstaste F4: 

Diese Taste beendet das 
Vorschreiben. 
Funktionstaste F6: 

Durch Betätigung dieser 
Taste wird wieder an den 
Anfang des »Terminal-Spei- 


chers« zurückgesetzt. Bis 
zum ersten Return-Zeichen 
werden die Daten über die 
RS232-Schnittstelle ausge- 
geben und gleichzeitig auf 
dem Bildschirm angezeigt. 


Funktionstaste F8: 

Ein wiederholtes Drücken 
dieser Taste setzt den Sen- 
debetrieb schrittweise bis 
zum Dateiende fort. Das En- 
de wird wieder durch +++ 
angezeigt. 

Die Taste 

Mit dieser Taste wird der 
Rücksprungin dasMenüein- 
geleitet. 

Die Run/Stop Taste 


Das Terminalprogramm 


kann mit Run/Stop unterbro- 
chen werden. 


5340 


PRINT"LZB] EBESBEDEUTUNG DER FUNKTIONS 


TASTEN" 


350 


PRINT"EREBRBFI1 = EMPANGENE DATEN SPE 


ICHERN" 
360 


570 


NSEHEN 


380 


NSEHEN 


390 
400 


410 


USSENDEN 


420 


USSENDEN 


430 
440 
450 


T EINEN RUECK- 


460 
470 
AMM 
480 
DER 
490 
soo 
510 
520 
530 
540 
550 
560 
570 
DER 
580 


Mm)" 


570 


RUECK 


600 
610 
&20 
630 
&40 
650 


PRINT"ERBRBFS ABSPEICHERN BEENDEN 
GESPEICHERTE DATEN A 
(€ ANFANG )" 
GESPEICHERTE DATEN A 
( WEITER )" 

TEXT VORSCHREIBEN " 
VORSCHREIBEN BEENDEN 


PRINT" BRRBFS 
PRINT" EBRRF7 


PRINT"ERBRRF?2 
PRINT "RBRRF4 


GESPEICHERTE DATEN A 
t ANFANG )" 
GESPEICHERTE DATEN A 
( WEITER )" 
PRINT"REBERMEITER MIT RETURN" 

GETA$: IFA$=""THEN440 

PRINT"L"= PRINT" DIE _ TASTE BEWIRK 
SPRUNG INS MENUE" 


PRINT"RRERRFö 
PRINT"IEBRBPFS = 


PRINT: 

PRINT" MIT RUN/STOP KANN DAS PROGR 

ABGEBROCHEN WERDEN": PRINT 

BEIM VORSCHREIBEN KANN MIT 

DEL-TASTE GELOESCHT WERDEN, 

PRINT" dd WEITER MIT RETURN" 

GETAF: IFAF=""THENSOO 

GOTO1350 

DPEN1,4,7:REM DRUCKER VC1526 

E=PEEK (16387) +PEEK (15388) #256 

FORI=20480TDE-1 

FRINT#1 ,CHR$(PEEK(I)) 5; NEXT 

CLOSE1:G60T0130 

FRINT"L2BBBEISAUTOMATISCHES WANDELN O 
MANUELLES WANDELN ?" 

PRINT"EBRBITSBITTE WAEHLEN ( A ODER 


PRINT" 


PRINT"EERBEISMIT RETURN KOMMEN SIE ZU 
IN DAS MENUE" 

GETA$: IFA$=""THENS0O 
IFA&="A"THENLOAD"WANDLER 2" ,8:RUN 
IFA$="M" THENLOAD"WANDLER" „8:RUN 
IFA&=CHR$ (13) THEN130 

GOTO&s00 

PRINT"W" = INPUT "ERBBEISDATEINAME";DE:P 


RINT"K" 


[-7-10) 


PRINT"EBRBEIWDATEI: ";D$;" WIRD AUF 
DISKETTE GESPEICHERT" 
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670 
680 
&70 


CLOSE2: OPEN1,8,2,D$+",S,W" 

E=PEEK (16387) +PEEK (16388) #256 
FORI=20480T0E-1 

700 PRINT#1,CHR$(PEEK(I))5;:NEXT 

710 PRINT"W":PRINT"ERBBEIDATEN SIND AUF 
DISKETTE GESPEICHERT": FORI=1T02000: NEXT 
720 CLOSE1:60T0150 

730 PRINT"L": INPUT "ERBBEISDATEINAME";D$S:P 
RINT"L" 

740 OPEN1,8,2,D$+",S,R":1=20480 

750 PRINT"ERBBEISDATEI: ";D$;" WIRD VON 
DISKETTE GELADEN" 











































7860 
770 
780 
790 
TUS 


GET#1,A$ 

POKEI , (ASC(A$)): I=I+1 
IFST=64THENCLOSE1:60T0810 
IFST< >OTHENCLOSE1: PRINT "KABEIDISKSTA 
",5T;"!":FOR I=1T05000: NEXT:GOTO130 
800 GOT0760 

810 POKE16387,(I-INT (1/256) #256) :POKE163 
88, (1/256) :GOTO130 

820 DATAO,0,0,0,0,0,0,0,0,0,169,0,141,1, 
64,141,3,64,141,4,64,133,251,169 

830 DATA80,133,252,169,194,141,5,64,32,2 
28,255,201,0,240,85,201,20,240,3 

840 DATA76,49,64,169,8,234,201,3,240,126 
‚„201,133,240,125,201,134,240,124 

850 DATA201,135,240,123,201,136,240,122, 
201,137,240,121,201,138,240,120,201 

860 DATA139,240,119,201,140,240,118,201, 
95,240,117,201,65,144,23,176,0,201 

870 DATA96,176,3,76,109,64,201,192,176,8 
‚76,116,64,105,32,76,116,64,233,128 

880 DATAZ2,90,66,234,234,234,234,234,32, 
134 ,240,201,0,240,157,201,13,240 

890 DATA17,201,2,240,43,201,3,240,42,201 
‚32,144,233,201,128,176,229,234,201 

900 DATA65,144,16,176,1,25"7.201,96,176,7 
‚24,105,128,76,172,6* 234,233,32 

910 DATA72,32,2:0,255,76,220,64,76,88,66 
‚76,212,64,76,54,65,76,190,65,76 

92L DATAiFS,65,76,65,65,76,54,65,76,2,66 
‚76,11,66,76,51,65,0,0,0,169,1,141 

930 DATA1,64,76,32,64,169,1,205,1,64,240 
„12,104,24,72,169,245,141,32,208 

940 DATA104,76,32,64,104,72,169,249,141, 
32,208,104,32,0,65,76,32,64,0,0,0 

950 DATA160,0,145,251,230,251,208,2,230, 
252,24,165,251,141,3,64,201,255,240 

960 DATA7,165,252,141,4,64,24,96,165,252 


than 2A 
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Menüpunkt 2 startet das 
eigentliche Terminalpro- 
gramm. Zum Datenaus- 
tausch ist hinzuzufügen, daß 
einige Steuerzeichen ausge- 
filtert werden, um ein ein- 
wandfreies Arbeiten mit an- 
deren Datenbanken zu er- 
möglichen. Weiterhin wird 
eine Code-Wandlung zwi- 
schen CPM und ASCI 
durchgeführt. Beim Betäti- 
gen der Del-Taste wird ein 
Backspace (ein Zeichen zu- 
rück) zur Gegenstelle ge- 
sandt. Da die Cursor-Steu- 
ertasten ihre Funktion verlo- 
renhaben, wurde aufdie Än- 
zeige des Cursors verzichtet, 

Menüpunkt 3 bewirkt die 
Ausgabe der im »Terminal- 
Speicher« befindlichen Da- 
ten auf einen angeschlosse- 
nen Drucker 


Menüpunkt 4 verläßt das 
Programm und lädt das 
»Wandler-Programm« Mit 
diesem »Wandler« ist esmög- 
lich, ein empfangenes und 
im »Terminal-Speicher« ab- 
gelegtes Programm (als 
ASCII-Datei) in ein lauffähi- 
ges Programm zu wandeln 
und in den Basic-Speicher zu 
schreiben. Es kann dann be- 
nutzt oder auf Diskette ge- 
speichert werden. Das 
»Wandler-Programm« startet 
selbstätig und auf dem Bild- 
schirm erscheint: ready. 
Programmzei- 
le.......«run 60020. Der Cursor 
blinkt in der ersten Pro- 
grammzeile. Sind in dieser 
Zeile keine Fehler vorhan- 
den, so kann diese durch Be- 
tätigen der ReturnTaste in 
den Basic-Arbeitsspeicher 


"die 


übernommen werden. Jetzt 
steht der Cursor in der Zeile 
»run 60020«, Einnochmaliges 
Drücken der Return-Taste 
bringt die nächste Pro- 
grammzeile auf den Bild- 
schirm. In gleicher Weise 
kann bis zum Programmen- 
de fortgefahren werden. Ist 
Änderung einer Pro- 
grammzeile erforderlich, so 
kann dieses mit den übli- 
chen Editiermöglichkeiten 
geschehen. Soll eine Zeile 
nicht übernommen werden, 
so wird der Cursor manuell 
in die Zeile »run 60020« ge- 
steuert und mit )Return( wei- 
tergearbeitet. Zu beachten 
ist, daß die Programmzeile 
nicht länger als 80 Zeichen 
ist. Der Menüpunkt 4 bietet 
zusätzlich eine Auswahlmög- 
lichkeit zwischen »automati- 


‚141,4,64,201,159,240,2,24,96,169 
970 DATA42,32,210,255,32,210,255,32,210, 
255,198,251,96,0,0,169,0,141,1,64 

980 DATA76,32,64,0,0,0,169,1,141,1,64,32 
‚228,255,201,0,240,249,201,13,240 

990 DATA24,201,20,240,20,201,32,144,237, 
201,145,240,233,201,157,240,229,201 

1000 DATA147,240,225,201,138,240,28,32,2 
10,255,201,20,240,3,76,127,65,198 

1010 DATA251,208,2,198,252,24,76,70,65,0 
‚0,32,0,65,76,70,65,76,54,65,0,0,0 

1020 DATAO,0,169,0,133,251,169,80,133,25 
2,165,252,205,4,64,240,3,76,174,65 

1030 DATA165,251,205,3,64,240,3,76,174,6 
5,24,76,215,65,0,160,0,177,251,230 

1040 DATA251,208,2,230,252,24,234 ,234 ,23 
4,234,96,32,141,65,32,210,255,32,149 
1050 DATA65,32,210,255,201,13,240,3,76,1 
96,65,76,32,64,0,0,0,32,38,65,169 

1060 DATA13,96,0,0,0,201,65,144,23,176,0 
‚201,96,176,3,76,244,65,201,192,176 

1070 DATAB,76,251,65,105,32,76,251,65,23 
3,128,32,90,66,96,0,0,0,32,141,65 

1080 DATA32,210,255,32,224,65,32,149,65, 
32,210,255,32,224 ,65,201,13,240,185 

1090 DATA76,11,66,76,32,64,0,201,65,144, 
23,176,0,201,96,176,3,76,51,66,201 

1100 DATA192,176,8,76,58,66,105,32,76,62 
‚66,233,128,32,210,255,96,233,31,76 

1110 DATAS8,66,0,32,141,65,32,31,66,32,1 
49,65,32,31,66,201,13,240,3,76,74 

1120 DATA66,96,96,0,133,158,32,8,242,96, 


96,0,0,0 


READY. 


»Terminalprogramm« 


(Ende) 


ar Kam 





scher Wandlung« und »ma- 
nueller Wandlung«. Die »ma- 
nuelle Wandlung« wurde be- 
schrieben. Bei der »automa- 
tischen Wandlunga« läuft das 
Programm selbstätig ab. 
Wird aber eine fehlerhafte 
Zeile erkannt, so bricht das 
Programm ab. Nach der Edi- 
tierung kann mit »run 60020« 
weitergearbeitet werden. 


Menüpunkt5 speichert al- 
le im vTerminalspeicher« be- 
findlichen Daten als sequen- 
tielle Datei aufeine Diskette. 
Vor dem Abspeichern muß 
der Datei-Name eingege- 
ben werden. 


Menüpunkt 6 lädt eine se- 
quentielle Datei von der Dis- 
kette in den »Terminal-Spei- 
cher«. 


Soll ein Basic-Programm 
zur Gegenstelle gesandt 
werden, so sind einige Be- 
sonderheiten zu beachten. 

1. Das Programm sollte nur 
‚reine ASCII-Daten« erhal- 
ten. Bildschirm-Steuerzei- 
chen sowie Grafikzeichen 
werden nicht übertragen. 

2. Das Programm muß alsse- 
quentielle Datei vorliegen 
und nicht wiesonstüblich als 
Programm-Datei. 

Die Wandlung einer Pro- 
gramm-Dateiin eine sequen- 
tielle Datei wird folgender- 
maßen durchgeführt. 

1. Das Programm wird wie 
üblich mit LOAD »NAME«, 8 
in den Basic-Speicher des C 
64 geladen. 

2. Im Direktmodus wird fol- 
gende Zeile eingegeben: 
OPEN 

1,8,2,»Name,S.W«: CMDI:LIST 

Jetzt wird das Programm 
alssequentielle Dateiaufdie 
Diskette geschrieben und 
kann später vom Terminal- 
programm aufgerufen wer- 
den. Anschließend wird mit 
CLOSE 1 das eröffnete File 
geschlossen. 

(Manfred Wyrwas) 


In der nächsten Ausgabe 
das entsprechende Trei- 


ber-Programm für den 
VO 20. 
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Modem: Das Modem stellt die Ver- 
bindung zwischen Ihrem Computer 
und dem Telefonnetz her. Es wird 
von der Post direkt an das Telefon- 
netz angeschlossen. Das Modem 
wandelt die Ausgabesignale des 
Computers in elektrische Signale 
um, die über das Telefonnetz über- 
tragen werden können. 

Akustikkoppler: Der Akustikkoppler 
hat dieselben Funktionen wie das 
Modem. Er wird aber nicht wie das 
Modem direkt an das Telefonnetz 
angeschlossen. Der Akustikkoppler 
verbindet den Computer mit dem 
Hörer eines herkömmlichen Tele- 
fonapparates. Der Akustikkoppler 
sendet akustische Signale, die vom 
Telefonapparat in elektrische Im- 
pulse umgewandelt werden, und 
empfängt akustische Signale, die er 
für den Computer in elektrische Im- 
pulse umwandelt. 

Handshaking: Handshaking bedeutet 
die Steuerung der Datenübertra- 
gungdurch Stopp-, Sende-und Emp- 
fangssignale Die Datenübertra- 
gung wird erst dann fortgesetzt, 
wenn der korrekte Empfang bestä- 
tigt wurde. 


Anemraha 7 /Inli 1OMA 


Vollduplex: Bei dieser Art der Daten- 
übertragung sendet der Computer, 
andenmandie eigenen Datenüber- 
tragen hat, diese Daten zurück, da- 
mit dereigene Computer sie aufkor- 
rekte Übermittlung überprüfen 
kann. Stimmen diese Daten überein, 
so wird mit der Übertragung fortge- 
fahren. Ist die Übereinstimmung 
nicht gegeben, so werden diese Da- 
ten erneut gesendet. 

Halbduplex: Im Halbduplex-Betrieb 
sendet der empfangende Compu- 
ter nur eine Bestätigung des Emp- 
fangs. 

Baud-Rate: Mit diesem Begriff wird 
die maximale Übertragungsge- 
schwindigkeit bezeichnet. Die 
Baud-Rate wird in BPS (Bits pro Se- 
kunde) angegeben. 

Paritätsbit: Die. Paritätskontrolle ist 
ein Hilfsmittel zur Datensicherung. 
Dabei wird einer einheitlich langen 
Folge von Informationsbits ein zu- 
sätzliches Bit hinzugefügt. Der Wert 
dieses Bits wird nach Vereinbarung 
so gewählt, daß mit ihm die Anzahl 
der Bits mit dem Wert binär Eins 
über die gesamte Einheit hinweg 
stets einen geraden oder stetseinen 
ungeraden Wert erreicht. Es wird 
dann von gerader oder ungerader 
Parität gesprochen. 


‚Start/Stop-Bits: Bei jeder Start-Stop- 
Übertragung wirdjedemn-tenBitje- 
weils ein Bit voran- und nachgesettzt. 
Das vorangesetzte Bit wird Start-Bit 
genannt, das nachgesetzte wird als 
Stop-Bit bezeichnet. 

Treibersoftware: Mit Treibersoftware 
wird das Programm bezeichnet, das 
die Kommunikation des Computers 
mit dem Modem steuert. Komforta- 
ble Versionen der Treibersoftware 
haben Zusatzfunktionen, die zum 
Speichern oder Drucken der gesen- 
deten und empfangenen Daten die- 
nen. 

Mailbox: Bei einer Mailbox handelt 
es sich um eine Datenbank, in die 
Nachrichten geschrieben oder aus 
der Nachrichten gelesen werden 
können. 

Answer/Originate: Wenn Sie mit einem 
Netz Verbindung aufnehmen, rufen 
Sie dasSysteman.Dader Rufvon Ih- 
nen ausgeht, muß Ihr Modem auf 
»Originate« gesetzt werden. Da- 
durch wird das »Einführungsproto- 
koll« in Gang gesetzt. Wenn Sie mit 
einem anderen Computer kommu- 
nizieren, muß einer im »Originate«- 
und derandereim»Änswer«Modus 
sein. Wenn die Verbindung aufge- 
baut ist, istesnichtmehr von Bedeu- 
tung, welcher von beiden in wel- 
chem Modus ist. 
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Wie bedient man eine Mailbox? 






Benutzung eines Akustikkopp- 

lers, um in eine Mailbox einzu- 
steigen, ist völliglegal. Es wird sogar 
erwartet. Denn genau zu diesem 
Zweck wurden Mailboxen geschaf- 
fen. Eine Mailbox ist im Prinzip 
nichts anderes als eine Datenbank 
oder eine Datei, in die Nachrichten 
eingegeben und abgerufen werden 
können. Jeder Besitzer eines Akus- 
tikkopplers ist dazu in der Lage. 
Welche Geräte sind notwendig? 

Die zur Kommunikation notwendi- 
gen Geräte sind schnell zusammen- 
gestellt. Neben dem C 64/VC 20 be- 
nötigen Sie eine V.24-Schnittstelle. 
Sie wird in den User-Port des Com- 
puters gesteckt. Ein geeignetes Ka- 
bel verbindet den Akustikkoppler 
mit dem Interface. Das wäre alles. 
Jetztfehltnurnoch.dieSoftware. Eine 
Möglichkeit ist das in diesem Heft 
abgedruckte Programm. Äber es 
gibt schon mehrere Programme, die 
diese Aufgabe erfüllen. Jeder Com- 
putertyp braucht seine aufihn abge- 
stimmte Software. Wenn Sie diese 
Geräte und das Programm haben, 
kann es losgehen. 


V orweg die rechtliche Frage: Die 





nn N 
i sc! $= ALD 
Kein Anschluß ohne Nummer 2202 1, Dieconeute® TO, „aanordı TEO® 


1r2 
„ Fin 


Zwei Probleme müssen noch be- 
wältigt werden: In der Nähe des 
Computers muß ein Telefonan- 
schluß verfügbar sein. Ohne Telefon 
gehtesnunmalnicht. Doch wasnützt 
die beste Bedienungsanleitung des 
Akustikkopplers, wenn sie keine 
Rufnummer enthält, unter der eine 
Mailbox erreichbar ist. Aber ab so- 
fort ist auch diese Schwierigkeit be- 
hoben. Ich werde Ihnen noch einige 
Telefonnummern geben, die Sie ein- 
mal ausprobieren sollten. 

Der erste Kontakt 

Anhand eines Beispiels möchte 
ich mit Ihnen eine Mailbox anwäh- 
len. Ich habe ein geeianetes Pro- 
gramm in den Computer geladen. 
Nach dem Starten steht mir ein Me- 
nü zur Verfügung, aus demmaneine 
Anzahl von Funktionen wählen kann. 
Ich wähle die Funktion »Daten la- 
den«. Sie stellt die Aufnahmebereit- 
schaft her. Die jetzt folgende Frage 
»Sollen die Daten auf Diskette ge- 
speichert werden% beantworte ich 
mit »Ja«, denn ich möchte mir nach- 
her alles ausdrucken lassen. Und 
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jetzt wird es langsam spannend. Auf 
dem Monitor ist nichts mehr zu se- 
hen. Aber ich weiß, was ich zu tun 
habe. Ich nehme den Telefonhörer 
in die Hand und wähle 061545 
1433. Das ist die Nummer von DE- 
CATES, eine aus der langsam stei- 
genden Anzahl von Mailboxen in 
Deutschland. Ein kurzer Blick auf 
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den Akustikkoppler — die Betriebs- 
lampe leuchtet. Alles ok. Leider 
meldet das Telefon das Besetztzei- 
chen. Damit muß man immer rech- 
nen. Älso noch einmal. Diesmal 
klappt es. Ein hoher Pfeifton sagt 
mir, daß die Verbindung hergestellt 
ist. Schnell lege ich den Hörer auf 
den Akustikkoppler. Gespannt war- 
te ich auf die ersten Zeichen. Nach 
ein paar Sekunden tut sich etwas. 
Die ersten Zeichen laufen mit der für 
300 Baud typischen, langsamen Ge- 
schwindigkeit über den Bildschirm 
Ein erstes Bild teilt mir mit, daß ich 
mit DECATES verbunden bin. 


LRLELDE 
ee 


Gleichzeitig werde ich nach mei- ; : 4 HH 
nem Paßwort gefragt. Ich gebe es HN 
ein und sofort kommt die Bestäti- AH ; HR 


gung, daß ich eingetragener Benut- 
zer bin. 

Als Anfänger werden Sie noch 
kein Paßwort besitzen. Aber keine 
Angst. Wer noch kein Paßwort be- 
sitz, braucht nur RETURN zu 
drücken. 

Als eingetragener Benutzer bin 
ich in der Lage, persönliche Mittei- 
lungen abzurufen, die nur für mich 
bestimmt sind. Kein anderer kann 
diese Infos lesen. Jeder andere Be- 
nutzer kann jedoch jedem anderen 
Mitteilungen zukommen lassen und 
auch jede öffentliche Information 
entgegennehmen. = 

Die dann folgende Frage von DE- 
CATES nach der Bedienungsanlei- 
tung sollten Sie ruhig mit Ja beant- 
worten, solange Sie sich mit diesem 
System nicht auskennen. Laut DE- 
CATES gibt es etliche Anrufer, die 
am Ende nicht mehr wissen, wie sie 
wieder aus dem System herauskom- 
men (nämlich indem man LOGOFF 
eingibt). Die meisten Bedienungs- 
fehler werden jedoch mittlerweile 
abgefangen. Der Rest geht automa- 
tisch. Und wie gesagt, die Bedie 
nungsanleitung sollten Sie am An- 
fang immer neben sich liegen ha- 
ben. Sie können dadurch Telefonko- 
sten sparen. 

Viele Mailboxen lassen folgende 
Funktionen zu: 

Informationen eingeben, Informa- |} 
tionen anzeigen; eine Art Fundgru- | 
be für Hard- und Softwaretausch ist |i 
oft auch vorhanden. Bei einigen fi 
Mailboxen existiert zusätzlich noch 
ein Informationssystem für Gewer- 
betreibende., Dort haben »gewöhnli- 
che« Anrufer keinen Zugriff. 
Probieren Sie die Mailboxen ruhig 
einmal aus. Weitere Nummern fin- 
den Sie in den abgedruckten Auszü- 
gen aus einer Verbindung mit DE- 
CATES. Doch vergessen Sie nicht 
die Telefonrechnung. 

a (ak) I 
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WER ENTFÜHRT EUCH 
IN DIE WUNDERWELT 
DER WISSENSCHAFT? 


COMMODORE 
COMPUTER. 


Den einen führt der Commodore-Heim- 
computer von den ersten Schritten der 
Physik in die grenzenlose Welt der Astro- 
physik. Den anderen von Bio und Chemie in 
die irdische Welt der Biochemie. 

Ein faszinierendes Ding: ein echter 
Computer mit unbegrenzten Möglichkei- 
ten. Mit ihm kann man spielend die Welt- 
sprachen der Computer lernen. Kann man 
Daten, Adressen oder Plattensammlungen 
organisieren. Sogar videospielen kann 
man damit. 

Ein tolles Ding: ein echter Computer 
für eine gute Idee nach der anderen. 
Der Commodore-Heimcomputer. Er kostet 
nicht die Welt. 


Beim Commodore-Vertragshandel, in führenden Waren- 
häusern, guten Rundfunk- und Fernsehfa 
großen Versandhäusern 

Mehr Informationen gibt's von: Commodore Büromaschi- 
nen GmbH, Abt. MK. Lyoner Straße 38. 6000 Frankfur 


ren Sie telefonisch von 
Düsseldorf 0211/31 20 


(= 


Commodore 
Eine gute Idee nach der anderen. 





Modems und Akkustikkoppler 
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orth wurde Anfang der siebziger 
Jahre von Charles H. Moore ent- 
wickelt und ursprünglich zur 
Steuerung von Radioteleskopen ein- 
gesetzt. Die Sprache entstand dabei 
ganz gezielt als Alternative zur 
fehleranfälligen und schlecht zu 
wartenden Ässemblerprogrammie- 
rung auf der einen Seite und den 
klassischen Compilersprachen wie 
Fortran oder Algol auf der anderen 
Seite, die für Prozeßsteuerungen zu 
langsam und zu aufwendig waren. 
Forth wurde übrigens damals als 
sogenannte »Programmiersprache 
der vierten Generation« entwickelt 
und sollte eigentlich dementspre- 
chend den Namen »Fourth« tragen. 
Leider war die IBM 1130, auf der 
Forth zum ersten Mal implementiert 
wurde, noch ein Rechner der »drit- 
ten Generation« und erlaubte nur 
Dateinamen bis maximal fünf Zei- 
chen. Charles Moore mußte 
»Fourth« daher um einen Buchsta- 
ben kürzen, und das war die Ge- 
burtsstunde von Forth. Lange Jahre 
fristete die Sprache ein Schattenda- 
sein in diversen Forschungsstätten, 
ehe sie mit dem Aufkommen der 
Mikrocomputer eine größere Ver- 
breitung auch unter Privatleuten 


fand. 
Was ist Forth? 


Forth ist interaktiv. Ähnlich wie in 
Basic können Programme also im 
Dialog mit dem Computer ent- 
wickelt und getestet werden. Das ist 
ein wesentlicher Unterschied zu 
den klassischen Compilersprachen 
wie zum Beispiel Pascal oder Fort- 
ran. Ein Compiler erwartet nämlich 
ein fertiges Programm, das er dann 
in einem Arbeitsgang übersetzt. Es 
gibt keine Möglichkeit, die Wirkung 
bestimmter Kommandos vor der 
Übersetzung zu testen. Änders bei 
Forth. Hier kann man im Direktmo- 
dus Rechnungen durchführen, Pro- 
grammteile testen und neue Be- 
fehlsworte definieren. 

Forth ist strukturiert. Es gibt in 
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Stackinhalt nach Ausführung 






Bid 1. Die Stapelveränderungen während der Aus- 
führung einer einfachen Befehlsfolge. Die Operatio- 
nen »-++« und »*« verknüpfen jeweils die beiden 
obersten Elemente des Stacks miteinander und le- 
gen das Ergebnis wieder ab. Mit ».« wird der TOS 
ausgedruckt und steht danach nicht mehr zur Verfü- 
gung. 


Forth selbst mit Gewalt keine Mög- 
lichkeit, Basic-ähnlichen Spaghetti- 
Code zu erzeugen. Der Grund dafür 
ist sehr einfach: Es gibt keine 
GOTO-Befehle und auch keinen Er- 
satz dafür. Jede Wort-Definition istin 
sich abgeschlossen und am ehesten 
noch mit den Prozeduren in Pascal 
zu vergleichen. 

Forth ist schnell. Alle Anweisun- 
gen werden zuerst compiliert und 
dann ausgeführt, was insbesondere 
bei Programmschleifen große Zeit- 
vorteile bringt. Forth-Programme 
sind daher in der Regel um Größen- 
ordnungen schneller als entspre- 
chende Basic-Programme. 

Forth ist erweiterbar. Im Gegen- 
satz zu den meisten anderen Pro- 
grammiersprachen kann der Benut- 
zer in Forth neue Sprachelemente 
definieren, ja Programmierung in 
Forth besteht gerade in der Defini- 
tion neuer Worte zur Erweiterung 
des Sprachumfangs. 










Code Feld 


Parameter Feld Worn+| 


Namensfeld 


Link Feld Kol 
| Coderfeld | Wortn+2 
Parameter Feld 
Jr 
v\ / % 
Z NA 


Bid 2. Vereinfachte Darstellung des Forth- 








Jeder Basic-Programmierer wird 
erfreut zur Kenntnis nehmen, daß in 
Forth keine Fehlermeldung »SYN- 
TAX ERROR« existiert — und zwar 
ganz einfach deswegen, weil die 
Forth-Syntax so einfach ist, daß kei- 
ne solchen Fehler vorkommen kön- 
nen. Ein Wort in Forth besteht aus ei- 
ner beliebigen Zeichenfolge, die al- 
lerdings kein Leerzeichen enthalten 
darf, weil dieses gerade zwei Worte 
trennt. Zum Beispiel sind gültige 
Forth-Worte 

HALLO, 3FACH, %X!, +1NOCH- 

UND-DANN-SCHLUSS. 

Eine Eingabezeile besteht nun 
einfach aus Worten und Zahlen. Bei 
Zahlen ist übrigens noch eine Be- 
sonderheit zu beachten: Forth kann 
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in beliebigen Zahlensystemen rech- 
nen. Die Systemvariable BASE ent- 
hält die jeweils gültige Zahlenbasis. 
In der Regel wird man entweder im 
Dezimal- oder im Hexadezimalsy- 
stem arbeiten. Daher kennt Forth 
zweispezielle Befehlsworte zum um- 
schalten in das jeweilige Zahlensy- 
stem, nämlich DECIMAL und HEX. 

Programmierung in Forth besteht 
nun einfach darin, mittels bereits de- 
finierter Worte wiederum neue Wor- 
te zu bilden. Ein Grundvokabular 
von vordefinierten Worten, das so- 
genannte Forth-Kernal, steht dem 
Benutzer dabei von Anfang an zur 
Verfügung. 

Bevor wir näher auf die Program- 
mierung eingehen, müssen wir uns 
zuerst noch mit einer weiteren Be- 
sonderheit von Forth auseinander- 
setzen, dem Stack. Forth arbeitet 
nämlich in umgekehrter polnischer 
Notation (UPN). Wesentliches Merk- 
mal dieser Methode, die Benutzern 
von Hewlett-Packard-Taschenrech- 
nern nicht unbekannt sein dürfte, ist 
ein Datenstack, aufdemalle Zahlen- 
werte gespeichert werden, bevor 
mit einem Operator auf sie zugegrif- 
fen wird. Um zum Beispiel den Wert 
des Ausdrucks 2*(3+5) zu berech- 
nen, würde man in Basic einfach 
schreiben 

PRINT 2*(3+5) 

Dieselbe Berechnungin Forth lau- 
tet (Bild ]): 

35 +2*.(man beachte den 
Punkt !) 


Die Berechnung geht also genau- 
so vor sich, wie man auch im Kopf 
rechnen würde: Zunächst nimmt 
man die beiden Zahlen in der Klam- 
mer, weil diese zuerst berechnet 
werden. Dann werden die Zahlen 
addiert, schließlich holt man sich 
die »2« und multipliziert sie mit dem 
ersten Zwischenergebnis. Forth legt 
also generell erst die für einen Be- 
fehl benötigten Operanden auf den 
Stack, und der Befehl greift an- 
schließend darauf zu. Das gilt nicht 
nur für arithmetische Operationen, 
sondern ist ein Kennzeichen für die 
gesamte Sprachstruktur von Forth. 
Nehmen wir etwa den Punkt am En- 
de der Beispielrechnung oben. Er 
ist das Forth-Äquivalent zum PRINT- 
Befehl in Basic. 

Beachten Sie bitte, daß der PRINT- 
Befehl immer vor den auszu- 
druckenden Daten steht, der Punkt 
in Forth jedoch immer dahinter. Mit 
dem Punkt-Befehl wird stets der 
oberste Zahlenwert auf dem Stack 
ausgedruckt. Der wesentliche Un- 
terschied zu anderen Programmier- 
sprachen, wie zum Beispiel Basic, 
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liegt nun darin, daß der Operand 
zum Zeitpunkt des Erreichens des 
Punkt-Befehls bereits bekannt ist. 
Der Basic-Interpreter, der aufeinen 
PRINT-Befehl stößt, weiß zu diesem 
Zeitpunkt ja noch gar nicht, was er 
ausdrucken soll. Also muß die Infor- 
mation, daß gedruckt werden soll, 
irgendwo abgespeichert werden. 
Basic und alle anderen höheren Pro- 
grammiersprachen bedienen sich 





dazu eines internen Stacks, der ähn- 
lich wie der Datenstack von Forth 
konstruiert ist. 

Letzten Endesliegt also der Unter- 
schied zwischen Forth und anderen 
Sprachen darin, daß alle anderen 
Sprachen den vorhandenen Stack 
vor dem Benutzer verheimlichen 
und zu diesem Zweck natürlich zu- 
sätzlichen Verwaltungsaufwand trei- 
ben müssen, was die Verarbeitung 
nicht gerade beschleunigt. 

Da Forth mit einem Datenstack ar- 
beitet, funktionieren alle eingebau- 
ten und selbstdefinierten Funktio- 
nen nach dem gleichen Schema: 
Die Funktion holtsich die benötigten 
Parameter vom Stack, führt die not- 
wendigen Berechnungen durch 
und legt das Ergebnis wieder auf 
den Stack. Dadurch können Funk- 
tionsaufrufe beliebig geschachtelt 
werden. Eine Übersicht über die 
wichtigsten numerischen Funktio- 
nen in Forth gibt Tabelle 1. 

Da der Stack bereits für die lau- 
fenden Rechnungen benötigt wird, 
ist es einigermaßen umständlich, 
ihn auch noch für die Speicherung 
von Daten zu verwenden. Forth 
kennt daher die beiden Befehlswor- 
te VARIABLE und CONSTANT, die 
zur Definition von Variablen bezie- 
hungsweise Konstanten benutzt wer- 
den. Mit 4 CONSTANT VIER wird 
zum Beispiel eine Konstante mit Na- 
men VIER und Wert 4 angelegt, auf 
die im weiteren Verlauf immer wie- 
der zurückgegriffen werden kann. 


Wann immer Forth jetzt auf das Wort 
VIER stößt, wird die Zahl 4 auf den 
Stack gelegt. 

Bei Variablen ist die Situation et- 
was komplizierter. Sei eine Variable 
TEST mit Anfangswert 1 definiert 
worden durch 1 VARIABLE TEST. 
Wenn jetzt wieder das Wort TEST 
auftaucht, wird nicht der Inhalt der 
Variablen, sondern deren Adresse 
auf den Stack gelegt. Mit zwei sehr 
häufig gebrauchten Befehlen kann 
man nun auf diese Adresse zugrei- 
fen: Es sind dies die Befehle »!« (ge- 
sprochen »Store“) und »@« (gespro- 
chen »Fetch«). Der Befehl »!« spei- 
chert den Zahlenwert, der an zwei- 
ter Stelle auf dem Stack liegt, an die 
Adresse, die durch das oberste Ele- 
ment des Stapels (TOS = Top of 
Stack) gegeben ist. Beide Zahlen- 
werte werden dabei vom Stack ent- 
fernt. Die Wirkung ist analog zum 
POKE-Befehl in Basic, operiert aber 
mit 16-Bit-Worten statt mit einzelnen 
Bytes. 2 840 ! entspricht also POKE 
840,2:POKE 841,0 in Basic. Ebenso ist 
840 @ in Forth analog zur Basic- 

Funktion PEEK(840) + 256*PEEK 
(84]). Sollen tatsächlich nur einzelne 
Bytes gespeichert und gelesen wer- 
den, bedient man sich der Worte 
»Cl« und »@«. 1 840 C! entspricht PO- 
KE 840,1 in Basic und 840 C @ ent- 
spricht PEEK(840). 

Nun sollte auch das Arbeiten mit 
Forth-Variablen klar sein: Beijedem 
Auftreten eines Variablennamens 
legt Forth die Adresse dieser Varia- 
blen auf den Stack. Um zum Beispiel 
einer Variablen TEST den Wert 7 zu- 
zuweisen, schreibt man in Forth 


ZTEST! 


Neue Worte definieren 


Danach ist die Zahl Zund auch die 
Adresse von TEST vom Stack ver- 
schwunden. Benötigt man die Zahl 
jedoch noch für weitere Rechnun- 
gen, muß sie vor der Zuweisung an 
die Variable zunächst dupliziert 
werden. Hierzu dient das Wort DUP, 
welches ein Duplikat des TOS er- 
zeugt. DUP ist eine sehr häufig be- 
nutzte Funktion, da alle Forth- 
Befehle die Parameter vom Stack 
entfernen. Will man zum Beispiel 
das Zwischenergebnis einer länge- 
ren Rechnung mit dem Befehl ».« 
ausdrucken, dann muß es zunächst 
mit DUP dupliziert werden, da es 
durch ».« vom Stack gelöscht wird 
und somit für weitere Rechnungen 
nicht mehr zur Verfügung steht. 

Forth hat die bemerkenswerte Ei- 
genschaft, daß der Sprachumfang 
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beliebig erweitert werden kann. 
Zwei Möglichkeiten zur Schaffung 
neuer Worte haben wirjaschonken- 
nengelernt: CONSTANT und VA- 
RIABLE. Daneben gibt esnoch eine 
Reihe weiterer sogenannter Defini- 
tionsworte. Zum Beispiel können mit 
CREATE neue Forth-Worte direktals 
Maschinenspracheroutinen defi- 
niert werden (sogenannte »Primiti- 
ves«). Man wird davon allerdingsnur 
an besonders zeitkritischen Stellen 
Gebrauch machen und in der Regel 
neue Worte mittels der sogenannten 
»Colon-Definition« einführen. Die 
Syntax dieser Definitionsmethode 
ist die folgende: 

: NEUWORT ALTWORT!I ALT 
WORT .... ALTWORTn ; 

Diese Befehlssequenz erzeugt ein 
neues Wort, NEUWORT, welches 
durch die bereits vorhandenen 
Worte ALTWORTI bis ALTWORTn 
definiert ist. Die Colon-Definition 
beginnt also immer mit dem Wort »:« 
und endet mit dem Wort »;«. Es ist 
wichtig, sich genau klar zu machen, 
daß »:« und »;« nicht irgendwelche 
syntaktisch notwendigen Zeichen 
sind, sondern daß es sich dabei tat- 
sächlich um normale Forth-Worte 
handelt. Das Wort »:« ruft vereinfacht 
gesagt den Forth-Compiler auf, wäh- 
rend das Wort »;« eine Änweisung 
zum Beenden der Compilation dar- 
stellt. 


Hinsichtlich der Namensgebung 
für neue Worte ist der Anwender im 
Prinzip keinen Beschränkungen un- 
terlegen. Benötigt man zum Beispiel 
desöfteren den Durchschnitt zweier 
Zahlen, dann kann man einfach defi- 
nieren 

: MITTEL + 2/.; 

Nach dieser Definition kann man 
jetzt einfach schreiben 4 8 MITTEL 
und erhält den Wert 6 angezeigt. 
MITTEL erwartet also zwei Zahlen 
auf dem Stack, die zunächst addiert 
werden »+«. Das Ergebnis dieser 
Operation wird dann durch zwei ge- 
teilt #2 /) und schließlich ausge- 
druckt (.J. An der Definition von 
MITTEL ist schon zu sehen, wie kurz 
und effizient Forth-Programme sein 
können. In Basic würde ein entspre- 
chendes Programm etwa folgender- 
maßen aussehen: 

10 INPUT XY : PRINT (X+YJ/2 : 

REM Mittel 

Mitder Colon-Definition kann man 
auch auf einfachem Wege Forth- 
Worten neue Namen zuweisen. 
Wenn man zum Beispiel für das Aus- 
drucken einer Zahl lieber den Be- 
fehl »DRUCKE« hätte, kann man ein- 
fach definieren 
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ı DRUCKE .; 

Nun kann man überall DRUCKE 
statt». «schreiben. Wenn man es wie- 
der leid ist, ständig sechs Buchsta- 
ben statt einem schreiben zu müs- 
sen, teilt man dem Forth-System ein- 
fach mit, daß es das Wort DRUCKE 
vergessen soll. Der dazu nötige Be- 
fehl lautet FORGET DRUCKE. Aller- 
dings löscht dieser Befehl nicht nur 
die Definition von DRUCKE, son- 
dern auch alle anderen eventuell 
noch danach erfolgten Definitionen. 
Das hängt damit zusammen, daß 
Forth alle Definitionen in einer ver- 
ketteten Liste abspeichert, dem so- 
genannten Wörterbuch (Bild 2). 


Strukturiert 
Programmieren 


Forth zwingt den Programmierer 
geradezu, seine Programme modu- 
lar aufzubauen. Es gibt in Forth kei- 
nen dem GOTO in Basic vergleich- 
baren Befehl. Ein komplexes Forth- 
Programm entsteht immer zuerst auf 
dem Papier. Wenn die Programm- 
struktur festliegt, entwickelt man zu- 
nächst die benötigten Unterroutinen 
und testet sie aus. Diese Unterrouti- 
nen sind danach ja als völlig norma- 
le Forth-Worte zu benutzen und kön- 
nen dazu verwendet werden, nunei- 
ne weitere Ebene noch »mächtige- 
rer« Worte zu definieren. Am Ende 
dieses Prozesses steht dann prak- 
tisch ein Wort, das das gesamte Pro- 
gramm repräsentiert. 

Forth besitzt, ähnlich wie Pascal, 
eine ganze Reihe sogenannter Kon- 
trollstrukturen, um strukturierte Pro- 
grammierung zu unterstützen: 

IF ... ENDIF — Die IF-Abfrage testet, 
ob der TOS (Top of Stack, also das 
oberste Element des Stacks) den 
Wert Null (= False) oder einen Wert 
ungleich Null (= True) hat. Ist das 
Ergebnis »True«, dann werden die 
Anweisungen zwischen IF und EN- 
DIF ausgeführt, andemfalls wird 
das Programm nach ENDIF fortge- 
setzt. Einige ältere Forth-Versionen 
benutzen das Schlüsselwort THEN 
statt ENDIF. 

IF... ELSE... ENDIF— Arbeitetähnlich 
der einfachen IF-Abfrage, führt aber 
im Falle TOS=0 die Anweisungen 
zwischen ELSE und ENDIF aus, 
sonst die Anweisungen zwischen IF 
und ELSE. 

DO ... LOOP — Entspricht der FOR- 
NEXT.Anweisung in Basic. Das Wort 
DO erwartet zwei Parameter auf 
dem Stack, nämlich die Anfangs- 
und die Endzahl der Schleifen- 
durchläufe Mit LOOP wird die 








Schleife beendet. Falls das Wort 
+LOOP statt LOOP verwendet wird, 
erhöht sich der Schleifenindex nicht 
um 1, sondern um den Wert des 
TOS. Das Wort »I« wird innerhalb von 
Schleifen dazu verwendet, den 
Schleifenzähler auf den Stack zu ko- 
pieren. 

BEGIN ... UNTIL— Diese Schleife wird 
solange durchlaufen, bis UNTIL ei- 
nen Wert ungleich Null (also »True«) 
auf dem Stack vorfindet. Entspricht 
REPEAT ... UNTIL in Pascal. 

BEGIN ... WHILE ... REPEAT — Der Pro- 
grammteil zwischen BEGIN und RE- 
PEAT wird solange durchlaufen, bis 
das Wort WHILE die Bedingung 
TOS=0 feststellt. Danach wird die 
Schleife unmittelbar hinter WHILE 
verlassen. 

BEGIN ... AGAIN — Dient zum Pro- 
grammieren unendlicher Schleifen 
und testet keinerlei Bedingungen. 

Wer in seinen Forth-Programmen 
weitere Schleifen- oder Auswahl- 
strukturen benötigt, kann sie sich 
einfach selber definieren. Das gilt 
für praktisch alle Bereiche. Forth ar- 
beitet zum Beispiel normalerweise 
nur mit Integer-Ärithmetik. Wer nun 
für seine spezielle Anwendung 
Real-Zahlen benötigt, besorgt sich 
einfach ein REAL-Vokabular von 
Forth und bindet es in sein System 
ein. So kann sich jeder Anwender 
sein persönliches Forth-System zu- 
sammenstellen und nach seinen Be- 
dürfnissen von Fallzu Fallerweitern. 

Es ist klar, daß es sehr schwierig 
ist, für eine derartig flexible Spra- 
che einen sinnvollen Standard zu fin- 
den. Die Forth Interest Group (FIG), 
eine nichtkommerzielle Vereini- 
gung von Forth-Enthusiasten, be- 
müht sich seit Jahren mit gewissem 
Erfolg um eine Standardisierung 
von Forth. Zu diesem Zweck gibt die 
Forth Interest Group vollständige 
ÄAssemblerlistings des sogenannten 
FIG-Forth mit Implementationshin- 
weisen für alle gängigen Mikrocom- 
puter heraus. Eine spezielle Forth- 
Zeitschrift, die »Fortn Dimensions« 
kann dort ebenfalls bezogen wer- 
den. Die Adresse ist Forth Interest 
Group, PO. Box 1105, San Carlos, CA 
94070, USA. 


Wer sich näher mit Forth beschäf- 
tigen will, dem seien zum Abschluß 
noch drei Bücher empfohlen: 

Starting Forth von Leo Brodie, zu 
beziehen über die Forth Interest 
Group; 

Das Forth Handbuch von H. Floegel, 
erschienen im Hofacker-Verlag; 

Die Programmiersprache Forth 
von R. Zech, erschienen im Franzis- 
Verlag. (ev) 


3sar 35 








den Commodore 64 an, laden 

ein Programm und Ihr Compu- 
ter meldet sich mit »WORDSTAR re- 
lease 3.25«. Der C 64 als Computer 
für Programme, die für wesentliche 
größere (und teurere) Systeme ent- 
wickelt wurden! Oder möchten Sie 
in Fortran, Cobol, PL1 oder Algol 
programmieren? Warum nicht? Das 
zur Verfügung stehende Potential an 
CP/M-Software ist beinahe uner- 
schöpflich. 

Aber woher ist diese Software zu 
beziehen? Diese Frage ist berech- 
tigt. Wer einmal versucht hat, in ei- 
nem Fachgeschäft, oder einem Soft- 
warehaus CP/M-Programme im Dis- 
kettenformat der 1541-Floppys zu 
kaufen, wurde wahrscheinlich ent- 
täuscht. 

Eigentlich schade, denn eine Um- 
frage bei einigen Münchener Com- 
puterfachgeschäfteneerbrachte, daß 
nach dem Steckmodul häufig ge- 
fragt wurde. Erhältlich war das Mo- 
dul aber nur in einem einzigen Ge- 
schäft. Dort wurde es, der eigenen 
Stellung wohl bewußt, nur zögernd 
unter dem Ladentisch hervorgezo- 
gen. Erst nach mehrmaligem Beto- 
nen der Dringlichkeit des Kaufs, 
konnte sich der Verkäufer zum 


S tellen Sie sich vor, Sie schalten 


Konnten Sie bisher mit Ihrem 
CP/M-Modul wenig anfangen? 
Versuchten Sie vergeblich 
Programme dafür zu kaufen? 
Dieser Bericht zeigt Ihnen einen 
Weg zur Welt der GP/M-Software. 


Tausch des Moduls gegen Geld ent- 
schließen. Ein Markt, der einfach 
brachliegt, beziehungsweise ein- 
fallsreichen Bastlem überlassen 
wird (der Diplomkaufmann in mir 
regt sich). 

Nutzen wir die Zeit, bis es eigene 
C 64-CP/M-Software gibt, mit einer 
gar nicht so schlechten Behelislö- 
sung. Wir koppeln einen Apple II 
mit dem Commodore. Dabei geht 
man wie folgt vor: 

Punkt 1: Sie bauen oder kaufen sich 
ein Verbindungskabel zwischen ei- 
nem Äpple II und dem Commodore 
64. 

Punkt 2: Sie kaufen sich die ge- 
wünschte CP/M-Software im Apple 
II Format. 

Punkt 3; Sie suchen einen Apple-Il- 































Besitzer, (zum Beispiel über eine An- 
zeige). 

Punkt 4: Sie schreiben sich, oder 
was leichter ist, sie Kaufen sich Soft- 
ware zur Übertragung. 

Punkt 5: Sie koppeln die beiden 
Computer, und überspielen die ge- 
kauften Programme. 

Dieses Verfahren ist so einfach, 
wie wirkungsvoll. 

Zum Test verwendete ich das 
Transferpaket von Bieling und 
machte mich an die Arbeit. Das Ka- 
bel wird auf der Apple-Seite in den 
Spieleanschluß gesteckt und beim 
Commodore natürlich in den User- 
Port. Nach dem Laden der Transfer- 
software kann das Übertragen be- 
ginnen. »Schon« nach 18 Minuten 
war eine gesamte Diskette übertra- 
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den Commodore 64? Wenn 

Sie ihn wie ich schon längere 
Zeit und einige Gehversuche in Ba- 
sic schon hinter sich haben, die Pha- 
se der Spielsucht und des Pro- 
gramme-Scheffelns überstanden 
haben, dann werden Sie sich wohl 
wieder dem Programmieren in Ba- 
sic zuwenden, nur diesmal ungleich 
intensiver. Jetzt stellt sich jedoch 
heraus: das eingebaute Basic hält 
den gewachsenen Änforderungen 
nicht stand. 

Eine neue Sprache, gut, aber wel- 
che? Da gibt's ja eine Unmenge da- 
von, zum Beispiel Forth, Cobol, Al 
gol, Fortran, Pascal, Modula und As- 
sembler, die nur »ehrfürchtig« ge- 
nannt wird, da Assembler angeblich 
nur von absoluten Spitzenkönnern 
beherrscht wird. Zu den Könnem 
zählt man sich im allgemeinen noch 
nicht und läßt eben die Maschinen- 
sprache beiseite (weshalb eigent- 
lich?) und sucht sich eine sogenann- 
te »höhere« Programmiersprache. 
Die Wahl dürfte wahrscheinlich auf 
Pascal fallen, weil Forth zu fremd, 
Fortran zu antiquiert, Cobol zu »ge- 
schäftig«, Algol zu wissenschaftlich 
und Modula zu neu ist. Nun, Pascal 
hat schon einiges zu bieten, was Ba- 
sic nicht hat. Die Schlagwörter sind: 
— Strukturierte Programmierung 
— Blockorientierte Programmie- 

rung 
— Operatoren auf Mengen 
— Lokale Parameter 


W: lange besitzen Sie schon 
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Für den Commodore 64 
gibt es bereits einige Versionen der 
Programmiersprache Pascal. Dieser 
Bericht stellt wichtige Elemente der 


Sprache vor und ver- 
gleicht sie mit äquivalenten 
Basic-Lösungen. 


— Möglichkeit für Rekursionen 
— eigene Typendefinitionen 
— Records etc. 
Über Schlagworte läßt sich be- 
kanntlich streiten, aber ich möchte 


lich zutreffen. 
Niklaus Wirth, der diese Sprache 


und Fortran beziehungsweise PL/l 
1971 an der ETH Zürich entwickelte, 
hatsie Pascal genannt, zu Ehren des 
französischen Mathematikers und 


Pascal entstand in Kalifomien und 
enthält nun auch den Typ »STRING« 


sowie Operatoren auf diesen Typ 
wie man es von Basic her gewöhnt 
ist, Ansonsten ist der Unterschied 
nicht annähernd so groß, wie der- 


jenige zwischen Basicdialekten. 


Pascal ist wegen seiner Klarheit 
im Aufbau und seiner enormen Lei- 
stungsfähigkeit zur wichtigsten, wis- 
senschaftlichen Programmierspra- 


che geworden. 


Ein äußerlicher Unterschied ge- 
genüber Basic besteht darin, daß 


Pascal vollkommen formatfrei ist, 


das heißt es gibt keine Zeilennum- 
merierung. Man darf daher eine Be- 
fehlssequenz (statements) über eine 
Bildschirmzeile hinaus aufdernäch- 
sten fortsetzen, denn, als gültigen 
Statementstrenner gibt es nur das 
Semikolon (,). Pascal kennt daher 
den Befehl »GOTO/GOSUB Zeilen- 
nummer« nicht. Aber dafür ist Pas- 
cal sehr stark blockorientiert. Ein 
Block ist im einfachsten Fall entwe- 
der ein Befehl oder eine mit »BE- 
GIN« und »END« umschlossene Be- 
fehlssequenz. Ändere Blocks sind 
»PROCEDURE«, eine Art Unterpro- 
gramm, und »FUNCTION«, auch ei- 
ne Art Unterprogramm, aber mit 
dem Unterschied, daß man einer 
»FUNCTION« einen Wert zuweisen 
kann. Darauf komme ich später zu- 


rück. Ein Beispiel dazu: 
FOR i := 10 DOWNTO 3 DO state- 
ment 


beweisen, daß sie für Pascal wirk-, 


aus den beiden Hauptlinien Algol 68 


Philosophen Blaise Pascal (zirka 
1650). Man kann deshalb von einem 
Wirth-Standard im Gegensalz zum 
UCSD-Pascal sprechen. Das UCSD- 







Diesem Statement entspricht in 
Basic die folgende Sequenz: 

FORi = 10 TO 3 STEP —: befehle: 
NEXT 

Diese ganze Schleife ist ein State- 
ment. Obwohl sie mehrere Befehls- 
wörter enthält, muß man sie nicht mit 
»BEGIN« und »END« umklammern. 
Ebenfalls als ein Statement gilt eine 
Wertzuweisung der Form: 
eilt] 

Der Operator ';=' weist der links 
davon stehenden Variablen den 
Wert des rechten Ausdrucks (ex- 
pression) zu. Er ersetzt nicht den 
Vergleichsoperator '=. Diesen 
braucht man in Pascal korrekterwei- 
se nur für Vergleiche wie »IF i = 5 
THEN....« 

Wenn ich schon bei Vergleichssta- 
tements bin, kann ich die drei eben- 
falls s»mehrwortigen« Statements be- 
sprechen, die Pascal für bedingte 
Abarbeitung eines Blocks besitzt, 
wobei eine Bedingung (condition) 
von der Form ist »variable 
=,()(=,=),() expression«: 

— IF condition THEN statements 
ELSE statements 

— WHILE condition DO statement 
— REPEAT statements UNTIL condi- 
tion 

Das erste Statement existiertfastin 
identischer Form in Basic, außer der 
Tatsache, daß »ELSE« im Basic des 
Commodore 64 natürlich fehlt. Die 
unteren beiden haben einen Schlei- 
fencharakter. Wofür nun aber zwei 
Schleifen, diesich doch fastnicht un- 
terscheiden? Nun, bei näherer Be- 
trachtung finden Siesehr wohl einen 
interessanten Unterschied: Die 
»WHILE«-Schleife testet eine Bedin- 
gung bevor eine Befehlssequenz 
ausgeführt wird (Solange wie...wie- 
derhole..), die »REPEAT«-Schleife 
hingegen testet erst nach der Äus- 
führung (Wiederhole...bis...). Sie 
werden vielleicht sagen, das sei 
doch nun wirklich nur Haarspalte- 
rei. Mitnichten! In den folgenden 
zwei Beispielen sehen Sie, wie man 
damit elegant iterative Probleme mit 
Bedingungen programmieren kann. 
Kümmern Sie sich vorerst nicht um 
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die anderen Statements, die in den 
beiden Progrämmchen sonst noch 
vorkommen, sondern konzentrieren 
Sie sich bitte nur auf die Schleifen. 

Beide Programme (Listing 1 und 
Listing 2) berechnen die Quadrat- 
wurzel einer Zahl: 

Die unterstrichenen Worte sind 
reservierte »Steuerworte« in Pascal, 
die nicht anders gebraucht werden 
dürfen. Die übrigen Worte sind Stan- 
dardprozeduren. Man erkennt sie 
auch daran, daß sie ein oder mehre- 
re Argumente in Klammern anneh- 
men können. Ein Statement kann aus 
Steuerworten und Prozeduren be- 
stehen, was man leicht erkennen 
kann, weil nach "WHILE*!DO' be- 
kanntlich nur ein Statement folgen 
darf, denn sonst müßte man ein En- 
de der »WHILE«-Schleife definie- 
ren. »PROGRAM«... sind die Pro- 
grammköpfe, »VAR«... die Deklara- 
tionsteile, auf die ich bald eingehen 
werde und innerhalb »BEGIN« und 
»END.« befindet sich das eigentliche 
Programm. »WRITE« beziehungs- 
weise »WRITELN« entsprechen im 
Commodore-Basic »PRINT;« bezie- 
hungsweise »PRINT« »READLN« 
dem »INPUT«. »SORT« entspricht 
»SOR« und berechnet die Quadrat- 
wurzel. 

Nun zur Routine selbst: Wie Sie 
wissen, kann man nur aus Zahlen 

= 0 reelle Quadratwurzeln zie- 
hen, deshalb muß man vor der Be- 
rechnung jeweils testen, ob die mit 
»READLN« gelesene Zahl > = Dist. 
Dies geht natürlich sehr elegant mit 
der »WHILE«-Schleife, die ja vor der 
Ausführung den Test durchführt. In 
der »REPEAT«-Schleife muß hinge- 
gen unbedingt ein Test mit »IF« ge- 
macht werden. Weshalb wird aber 
die Eingabe zweimal geschrieben? 
Nun, erstens enthalten Variablen in 
Pascal, nachdem sie ins Leben ge- 
rufen wurden, keinen bestimmten 
Wert und zweitens muß der erstma- 
lige Test in der »WHILE«-Schleife et- 
was »Wohldefiniertes« zum Testen 
haben. Man sieht auch gleich, daß 
der ganze Inhalt der »WHILE«- 
Schleife übersprungen wird, falls 
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Ausdruck Sein. Hier den = n 
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die erste Eingabe < Ost. Hätte man 
nun in der »WHILE«-Schleife keine 
Gelegenheit mehr, »z«zu verändern, 
käme man niemals mehr ausihr her- 
aus. In der »REPEAT«-Schleife ver- 
hält es sich diesbezüglich ähnlich. 
Nun noch schnell das äquivalente 
Basicprogramm: 

In dem äauivalenten Basic- 
Programm (Listing 3) entsprechen 
der kleinen Standardprozedur »RE- 
ADLN« die Zeilen 30 und 40. Es ist 
sehr schön zu sehen, daß man in Ba- 
sic nicht ohne das »GOTO« aus- 
kommt und daß das Programm jetzt 
schon schlechter ist, als dasjenige in 
Pascal. Stellen Sie sich schon jetzt 
mal vor, wieessich erstmitlängeren 
bis sehr langen Programmen ver- 
hält, bei denen man nicht so schnell 
sieht, wasalles wiederholt wird, weil 
zwischen der angesprungenen Zei- 
le und dem entsprechenden »GO- 
TO« eventuell mehr als 100 Zeilen 
liegen. 

Ein weiteres Pascal-Statement, 
von dem man sagen könnte, daß es 
irgend etwas teste, ist das »CASE«- 
Statement. Es lautet: 









(% HI 
( ER So 





3; 889 := nr. 
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are SAM: 
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WRIT CASE 
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Listing 4, De 
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— CASE selektor OF 
marke 1 : STATEMENT; 
marke 2 : STATEMENT, 
marke 3 : STATEMENT; 


marke n : STATEMENT 

END: 
Mit ihm kann man eine aus mehre- 
ren Möglichkeiten auswählen, je 
nachdem welcher Marke der Selek- 
tor entspricht. Esentspricht den»ON 
x GOTO« und »ON x GOSUB«- 
Verteilern. Aber »CASE« ist dage- 
gen ungleich vielseitiger. Bekannt- 
lich darf »x« in Basic weder ein Aus- 
druck noch ein alphanumerisches 
Zeichen sein. In Pascal darf der Se- 
lektor ein beliebiges Zeichen sein. 
Listing 4 zeigt dies. 

Jenachdem, welchen Wert »tagnr« 
hat, werden der Variablen »tag« die 
entsprechenden 3 Buchstaben zu- 
gewiesen. Stimmt der Selektor mit 
keiner der Marken überein, so istim 
Standardpascal nicht definiert, was 
dann geschieht. In UCSD-Pascal 
hingegen wird einfach beim näch- 
sten Statement fortgefahren. Hier 
folgt nun noch das kleine äquivalen- 
te Basicprogramm dazu (Listing 5). 
Da im Basic des Commodore 64 
dem »IF.. THEN«-Befehl das »ELSE« 
fehlt und weil eine Basiczeile nicht 
mehr als 80 Zeichen zuläßt, muß 
man aufdie Konstruktion verschach- 
telter »IF..THEN...ELSE IF..THEN... 
ELSEIF..'szur Emulation von »CASE« 
verzichten. Man sieht, daß man zur 
Emulation dieses Statements in Ba- 
sic sehr redundant programmieren 
muß. 

Es ist dies sicher nicht die einzige 
und schon gar nicht die eleganteste 
Lösung, aber wahrscheinlich dieje- 
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nige, die einem zuerst in den Sinn 
kommt. Eine weitere bevorzugte 
Verwendung von »CASE« ist die Me- 
nüsteuerung, wie Listing 6 zeigt. 

Zu Listing 6 ist nicht vielzu sagen, 
außer daß man sieht, daß der Selek- 
tor (Variable »w«) auch ein alphanu- 
merisches Zeichen sein kann und 
daß den Marken (»A«, »B«, »C«) meh- 
rere Statements folgen können. Hier 
also Zuweisungen und Prozeduren. 
Hinzu kommt noch eine neue Stan- 
dardprozedur genannt »PAGE«. Sie 
produziert einen Seitenvorschub auf 
einer Text-Ausgabedatei, weshalb 
dieser Prozedur ein Dateiname fol- 
gen muß. »PAGE (OUTPUT) produ- 
ziert also einen Seitenvorschub auf 
dem Bildschirm, der sich als Lö- 
schen des Schirms äußert. 


Blockstruktur, lokale und 
globale Variablen 


Nun komme ich endlich zu demje- 
nigen Punkt, welchen ich bisher im- 
mer vor mir herschob, Ihnen aber 
schon vier mal in den Programmen 
vorgesetzt habe: Es ist dies der Pro- 
grammkopf mit dem wichtigen De- 
klarationsteil. Die Blockstruktur ist 
ein Hauptmerkmal von Pascal. Man 
kann sich eine Ebene vorstellen, die 
bezeichnet wird mit»PROGRAM na- 
me«. Inihrsind überall und jederzeit 
alle Konstanten und Variablen ver- 
fügbar und änderbar, die in dem zu 
dieser Ebene gehörigen Deklara- 
tionsteil angegeben werden müs- 
sen. Ein Programm, das völlig ohne 
Prozeduren und Funktionen aus- 
kommt, liegt in dieser Ebene, und 
somit leben alle Variablen in ihm 
(das heißt sie sind gültig), eben weil 
sie im Deklarationsteil dieser Ebene 
stehen. Im Deklarationsteil, der zu 
dieser Ebene gehört, wird nun ge- 
sagt, ob und welche Konstanten, Ty- 
pen und Variablen in dieser Ebene 
gebraucht werden. Man muß also 
alle in dieser Ebene verwendeten 
Variablen deklarieren. Wenn man 
nun ein Unterprogramm, genannt 
Prozedur, einführt, so bildet man ei- 
ne neue Ebene, die jetzt auf derjeni- 
gen liegt, die »PROGRAM« genannt 
wurde (es entsteht mit der Zeit eine 
Art Relief, indem Ebene auf Ebene 
zu liegen kommt). Will man die Va- 
riablen aus der Hauptebene »PRO- 
GRAM«) benützen, so kann man das 
bedenkenlos tun. 

Man kann aber auch Konstanten, Ty- 
pen und Variablen definieren, die 
nur in dieser und jeder darauflie- 
genden Ebene leben, dasheißtman 
kann von der Hauptebene diese Va- 


an =ıNva 


riablen nicht ansprechen, weil sie SROCRANN TAGREGHNUNG 
VARIABLEN tag$ 


für die Hauptebene nicht existieren, 2C # 
da sie nicht in deren Deklarations- aaleeN Bene en elen- 


teil verzeichnet sind. Daraus ergibt 0 THEN tags = "MON" 
sich, daß man die gleichen Varia- as nen 
blennamen verwenden darf, die ei- F taanr, MEN ans. a RDON“ 
gentlich schon in der Hauptebene tagnrt THEN tag® = "FRE" 
verteilt worden sind. Obwohl, gleich Bir learn = 

benannt, beeinflussen sie einander PRINT tagnr‘" 
in keiner Weise. Beide Inhalte blei- 2 


ben erhalten. Je nachdem, in wel- Listing 5. Dem Pascal-Programm in Listing 4 
ö , entsprechendes Basic-Programm. 


tagnr‘% 
F taonr“ 


tagnr” = 


yanmad 


ugam" 
"SON" 
"tags 


run 


THEN tag® 
THEN tag* 
entspricht 





FROGRAM RAHMEN 
VAR i,k,l: 
C,w: 


(INPUT.OUTPUT): 
real; 
char; 


GETDATA: 


HIER STEHT DIE DEFINITION 


(*X VON GETDATA *) 


HIER STEHT DIE DEFINITION 


(% VON USEDATA %#) 


HIER STEHT DIE DEFINITION 


(*X VON STOREDATA *) 


IN 
REPEAT 
PAGE (OUTPUT); 


(X DES HAUFTFROGRAMMES *) 


WRITELN; WRITELN; 
WRITELN (” 
WRITELN; 
WRITELN (” A 
WRITELN (°’ B 
WRITELN (° 
WRITELN (° 
READ (w); 
CASE w DE 
A? 
BB? 
FH? 
END (x 
WRITELN; 
WRITELN (’IST IHRE 
READ (c); 
UNTIL € = ’9° 
END. 


WRITELN; 
BITTE WAEHLEN SIE: °); 
DATEN HOLEN °); 

DATEN BEARBEITEN °’); 
DATEN ABSPEICHERN °): 
BEENDEN °); 


GI i GETDATA: 
61 k USEDATA: 
1 
) 


TOREDATA; 


BEGIN 


OF CASE * 


ARBEIT BEENDET J/N 


(*X DES HAUFTFROGRAMMES *) 





Listing 6. Menüsteuerung über CASE-Anweisung in Pascal (Programmauszug) 


chem Block man sich befindet, sind 
gerade die Variablen von dessen 
Deklarationsteil aktiv. Man kann al- 
so, indemmaninder Prozedur einen 


Deklarationsteil hat, eine Sperre 
aufbauen, die ein Verändern einer 
gleichlautenden Variable aus einer 
tieferliegenden Ebene verhindern 
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PROGRAM INITMATRIX (INPUT, OUTPUT): 
n = 25; (* ZEILEN %) 
(X SPALTEN #) 
ARRAY [LO..n.O..m] OF INTEGER: 


: matrix; 
INTEGER; 


FROCEDURE ZEILE: 
i : INTEGER: 


DO 


FOR i := © 
] 


m 
alk,i 0; 


!Dz 
WRITELN (’DIE MATRIX IST JETZT INITIALISIERT WORDEN. ’)>; 
(%: DES HAUFTROGRAMMES %) 





kann. Aus dieser Tatsache entstand 
der Begriff der»Lokalen Variablen«. 
Ein typisches Anwendungsbeispiel 
dazu ist das»FORi:= xTO y DO« 
Statement. Da man mit diesem State- 
ment oft Indices verändert, heißt die 
Laufvariable meistens »i« für Index, 
und sohatessich eingebürgert, daß 
man sie wenn möglich immer »i« 
nennt. Damit nun niemals irgend- 
welche Komplikationen auftreten 
können, deklariert man diese Varia- 
ble »i« meistens in jeder Ebene und 
zwar vom Typ »INTEGER«. Ich hoffe, 
daß dies am nächsten Beispiel (Li- 
sting 7) ein bißchen klarer wird: 

In Listing 7 gibt es zum ersten Mal 
einen fast ausgelasteten Deklara- 
tionsteil. Er ist strikt gegliedert und 
die Teile der Deklaration müssen 
immer in derselben Reihenfolge 
auftreten. Im Standardpascal lautet 
die Abfolge folgendermaßen: 

— Labelteil Zuweisung der 
Sprungmarken 
Deklaration und Zu- 
weisung 
Deklaration und Defi- 
nition 
Deklaration und Ty- 
penzugehörigkeit 
— Prozeduren Deklaration und Defi- 
und Funktionen nition 


— Konstantenteil 


— Typenteil 


— Variablenteil 


In UCSD-Pascal gibt es zwar den 
Labeltel, aber das »GOTO«- 








Listing 7. Sowohl im Hauptprogramm 

als auch im Unterprogramm »Zeile« ist eine 
Variable i definiert worden. 

Beide Variablen, trotz demselben Namen, sind 
völlig unabhängig voneinander. 


Listing 8. Parameterübergabe an Prozeduren. 
Es gibt formale und aktuelle Parameter. 


Statement nur bedingt. Man darf da- 
her nicht ein Label anspringen, wel- 
ches außerhalb des aktuellen 
Blockes liegt. Ein Aussteigen aus 
dem gerade bearbeiteten Block ist 
nur mit»EXIT procedure p«möglich. 
Der aktuelle Block wird verlassen 
und die Prozedur »p« wird ausge- 
führt. Eine Labeldeklaration ge- 
schähe dann wie folgt: 
LABEL 0,27,56,876,9999 
Damit hätte ich 5 Labels deklariert, 
die irgendwo im betreffenden Block 
stehen können. Die Zahlen haben 
nichts mit irgendwelchen Zeilen- 
nummernzutun (man kann sie natür- 
lich so verwenden). 

Die Konstantendeklaration: 
CONST name = wert; 
Die Typendeklaration: 
TYPE name = Definition des Typs; 
Die Variablendeklaration: 
VAR name : Typenzugehörigkeit; 
Die Prozeduren- und Funktionende- 
klaration: 
PROCEDURE name (Übergabepa- 
rameter); 
Definition der Prozedur 
FUNCTION name (Übergabepara- 
meter); 
Definition der Funktion 

Nun ist zwar endlich klar, was ein 
Deklarationsteil ist, aber die Typen- 
arten, von denen ich schon zwei in 
den Beispielprogrämmchen benutzt 
habe, sind noch immer nicht klar. 


Nun, es gibt einmal vordefinierte Ty- 
pen, diese sind: 


Bereich der ganzen Zah- 
len von —32768 bis 
+32767 
Bereich der reellen Zah- 
len von zirka 1E-38 bis 
zirka 1E38 
Nur 2 Werte, 0 = false, 1 
= tnıe 
l Zeichen, das dem 
ASCII-Code von 32 bis 
127 entspricht 
Abkürzung für »file of 
char«, siehe weiter un- 
ten 
m UCSD-Pascal existiert noch der Typ: 
STRING Zeichenkette, array of 
char 


CHAR 


TEXT 





Eine ebenfalls vordefinierte Ab- 
änderung der Standardtypen erhält 
man, indem man schreibt: »FILE OF 
standard typ«. So deklariert man ei- 
ne sequentielle Datei, deren Ele- 
mente einem der Standardtypen an- 
gehören. Eine ungeheure Flexibili- 
tät erreicht Pascal nun, indem man 
eigene Typen definieren kann. Im 
letzten Beispiel habe ich auch einen 
eigenen Typen definiert, nämlich 
den Typ »matrix«. Er ist definiert als 
ein zweidimensionales Feld der 
Größe »m« * »n« Elemente des Stan- 
dardtyps »INTEGER«. In der Typen- 
deklaration hat man fast unbe- 
schränkte Möglichkeiten der Ty- 
pengenerierung. Da nun der Typ 
definiert ist, darf ich ihn im Varia- 
blendeklarationsteil verwenden. 
Auch das habe ich gemacht: Es sei 
»a« vom Typ »matrix«, Im Konstanten- 
teil hat man nur die Standardtypen 
zur Auswahl, da die Typendeklara- 
tion erst später folgt. Einen großen 
Nachteil hat die Sache mit dem De- 
klarationsteil: Da man nur Variablen 
benutzen darf, die man deklariert 
hat, kann man die Reservation von 
Speicherplatz für die Variablen 
nicht optimieren. Man sieht dassehr 
deutlich an der Variablen »a«. Die 
Größe der Matrix ist bestimmt 
durch die Konstanten »m« und »n«, 
die ich aber schon vorher deklarie- 
ren mußte. Ob ich nun wirklich die 
ganze Größe voll ausnutze oder 
nicht, ich muß die Array-Grenzen 
angeben. Unter Umständen ver- 
schleudere ich sehr viel Speicher- 
platz, eventuell reicht er aber nicht 
einmal. In Basic dagegen kann man 
schreiben: 

10 INPUT "WIEVIELE ZEILEN, 
SPALTEN";m,n 
20 DIM matrix(m,n) 

In Pascal geht esnichtso bequem, 
aber es ist möglich. Es werden noch 
einige Beispiele folgen, indenen.an- 
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dere Typen gebraucht werden. Das 
Beispiel (Listing 7) zeigt, daß neben- 
und nacheinander zwei Variablen »i« 
leben können, die einander nicht 
zerstören. Die eine ist global, weil 
sie im Programmkopf deklariert 
worden ist, die andere ist lokal, da 
sie erst in der Prozedur deklariert 
wird. Man muß aber klar erkennen, 
daß man zu keinem Zeitpunkt die 
Werte beider Variablen zugleich 


EICH ( : LEAN: 

DERAM VERGL ma zz „eae»3$ Lo. z max] or BOO 

co enge = ARKAY EAN: 
ype zahlen „-ahlenmenge? * Br 


in ei 
Listing 9. ES wird geprüft, ob eine Menge 


ausgeben kann. Zu den Prozeduren 
istzusagen: Jede Prozedur hateinen 
Namen. Man kann ihr Werte über- 
geben, indem man hinter dem Na- 
men eine Klammer öffnet und die 
Variablennamen sowie deren Ty- 
penzugehörigkeit eingibt. Man kann 
nunaber aufzwei Arten Werte über- 
geben. Dies soll am Beispiel zweier 
Prozeduren (Listing 8) gezeigt wer- 
den: 

Man erkennt sofort, daß an die 
Prozedur »IN« zwei Werte überge- 
ben werden, fragt sich nur, wo der 
Unterschied der zwei Übergabear- 
ten liegt. Dies ist schnell geklärt: 

Die Parameter in Klammern bei 
der Prozedur »IN (i: INTEGER; VAR 
j: INTEGER) sind sogenannte »for- 
male Parameter«, diejenigen aber 
im Prozedurenaufruf »IN(a,b)« nennt 
man »aktuelle Parameter«. Die for- 
malen Parameter zeigen an, daß 
(hier zwei) Parameter übergeben 
werden, die in der betreffenden 
Prozedur »i« und »j« heißen werden. 
Die aktuellen Parameter dagegen 
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beinhalten die Werte, dietatsächlich 
übergeben werden. Inunserem Bei- 
spielheißt das, daß die aktuellen Pa- 
rameter »a« beziehungsweise »b« 
den formalen Parametern »i« bezie- 
hungsweise »j« entsprechen. Nun, 
einen kleinen Unterschied gibt es 
aber doch, wie die Notation der for- 
malen Parameter vermuten läßt: 
















alten Ist. 





Dem formalen Parameter »j« wird 
der Inhalt des aktuellen Parameters 
»a« übergeben. 

Dem formalen Parameter »j« je- 
doch wird die Speicherplatzadres- 
se des aktuellen Parameters »b« 
übergeben. Ein kleiner aber wichti- 
ger Unterschied. 

Wenn nämlich die Prozedur »IN (i: 
INTEGER; VAR j: INTEGER)« ausge- 
führt wird, wird der Inhalt von »a«in 
die Variable »i« kopiert. Der Inhalt 
von »a« wird in dieser Prozedur nicht 
verändert. Dagegen wird beim Auf- 
rufvon»IN (i: INTEGER; VAR j: INTE- 
GER)« nicht-der Inhalt von »b« nach 
»j«, sondern deren AÄdresse zur 
Adresse von »j« kopiert. Das hat eine 
konsequenzenreiche Auswirkung: 
Alle Veränderungen von »j« in der 
Prozedur »IN« beeinflussen auch 
den Inhalt der globalen Variablen 
»b«, weil »jenun jaeinfach nureinan- 
derer Name für die Variable »b« ist. 
Die erste Methode der Parameter- 
übergabe nennt man daher »call by 
value«, die zweite hingegen »call by 
reference«. Die Variablen sind nun 
in der betreffenden Prozedur sowie 


jeder weiteren darin verschachtel- 
ten Prozedur lokal bekannt. Man hat 
nur darauf zu achten, daß man bei 
der Übergabe keinen Typenkonilikt 
verursacht und daß beim Aufruf 
ebenso viele Parameter stehen wie 
beim Prozedurenkopf. 

Diese Art der Parameterübergabe 
eignet sich besonders dazu, eigene 
Programmodule für eine Pro- 
grammroutinenbibliothek bereitzu- 
stellen. Ein weiteres Beispiel dazu 
mit einer »FUNKTION«, für eine 
ganz bestimmte Anwendung, näm- 
lich einer Vergleichsfunktion: 
Gegeben sei folgende Deklaration: 
CONST max = 10000; 
TYPE zahlenmenge = ARRAY 
(1..max) OF BOOLEAN; 

Eine Variable vom Typ »zahlen- 
menge« kann man auffassen als die 
Darstellung einer Menge von Zah- 
len zwischen »l« und »max«, wobei 
für jede solche Zahl der entspre- 
chende Boolean-Wert im Array an- 
gibt, ob sie Element der Menge ist 
oder nicht (das heißt ob der korre- 
spondierende Wert im Array »I« 
oder »Ü« ist). 

Gesucht ist nun eine Pascal Funk- 
tion, die das Enthaltensein einer 
Menge »ml« in einer Menge »m2« 
(beide vom obigen Typ) prüft. Eine 
mögliche Lösung zeigt Listing 9. 

Diese Funktion übernimmt nun 
aus dem Umfeld der Funktion zwei 
Variablen vom Typ »zahlenmenge« 
und weist sie den formalen Parame- 
tern »ml« und »m2« mittels der »call 
by value«-Methode zu. Neu bei der 
Funktion ist nun, daß hinter der 
Klammer noch deklariert werden 
muß, welchen Typs das Resultat der 
Funktion sein wird. Die Funktion ist 
ein wichtiger Bestandteil von Pascal. 
Ihr entspricht in Basic teilweise der 
Befehl »DEF FN name (variable) = 
expression«, außer daß er in Basic 
nur eine mathematische Formel de- 
finieren und nur eine numerische 
Variable übernehmen kann. Man 
kann mit ihm keinerlei Operationen 
definieren, die als Resultat einen 
Sung oder einen Charakter ausge- 

en. 

Der zweite Teil erscheint in der 
nächsten Ausgabe und beschreibt 
die Programmierung mit Funktio- 
nen, dem Mengentyp, Aufzählungs- 
und Auszähltyp sowie die Definition 
von Datensätzen und den Einsatz 
von Zeigern (POINTER). Kurz erläu- 
tert werden Befehle zur Dateibear- 
beitung. Den Abschluß bildet eine 
kritische Auseinandersetzung mit 
vier Pascal-Versionen, die alle auf 
dem Commodore 64 lauffähig sind. 


(Martin Baur) 
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Debugging — Fehlersuche 
in Basic-Programmen 


Diese Situation kennt wohl jeder Besitzer eines Home- 
computers zur Genüge: Da tippt man in stundenlanger 
Arbeit ein ellenlanges Listing ein, lehnt sich nach dem 
letzten »RETURN« einen Augenblick erleichtert zurück, 
gibt das magische Wort »RUN« ein — und natürlich 
läuft das Programm in keiner Weise so, wie es eigent- 
lich sollte. Das Spektrum der möglichen Ereignisse 
reicht dabei vom simplen »SYNTAX ERROR« bis zum 
völligen Absturz des Programms. 


seineFehlermeldungenausgibt, 

hat man ja noch Glück gehabt. 
Kritisch wird die Situation dann, 
wenn auf dem Bildschirm ein eigen- 
artiges Gemisch undefinierbarer 
Zeichen erscheint und sich der 
Computer weder durch Betätigen 
aller erreichbaren Tasten, noch 
durch gutes Zureden wieder auf 
den Boden der Tatsachen zurückho- 
len läßt. Wenn man beim Eintippen 
eines Programms einmal an diesem 
Punkt angelangtist, wird esZeit, sich 
die erste Regel gut einzuprägen: Je- 
des Programm sollte vor dem Start 
En eaunge mit SAVE gesichert wer- 

en. 

Mit dem SAVEn allein ist es aller- 
dings noch nicht getan, es muß ef- 
fektiv noch etwas gegen die im Pro- 
gramm enthaltenen Fehler unter- 
nommen werden. Diesen Vorgang 
bezeichnet man auch als »Debug- 
ging«. Das Wort ist von der engli- 
schen Bezeichnung »Bug« abgeleitet 
und bedeutet eigentlich »entwan- 
zen«, wobei mit den »Wanzen« die 
Fehler gemeintsind, diesich überall 
im Programm verstecken. In der 
amerikanischen Umgangssprache 
hat sich das Wort ganz allgemein für 
das Suchen versteckter Fehler ein- 
gebürgert. 

Ganz grob kann man zwischen 
zwei Arten von Fehlern unterschei- 
den. Einerseits gibt es die logischen 
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Fehler, die mit schöner Regelmäßig- 
keit in der Entwicklungsphase eines 
Programms auftauchen, weil man 
dem Computernochnicht genau ge- 
nug gesagt hat, was er denn nun ei- 
gentlich machen soll. Diese Art von 
Fehlern erkennt man zumeist daran, 
daß das Programm anstandslos 
läuft, aber nicht immer die ge- 
wünschten Ergebnisse produziert. 
Die zweite Art von Fehlern ist we- 
sentlich profanerer Natur und tritt 
praktisch jedesmal dann auf, wenn 
man ein Programm von einem frem- 
den Listing oder auch von den eige- 
nen Aufzeichnungen abtippt: Eshan- 
delt sich dann zumeist um schlichte 
Tippfehler oder um Fehler, die auf 
schlechter Lesbarkeit der Vorlage 
beruhen. Wir wollen uns im folgen- 
dennur mit der zweiten Art von Feh- 
lern beschäftigen. 





Der Computer hilft 
bei der Fehlersuche 





Wie geht man nun zweckmäßig 
vor, um alle Fehler zu finden, ohne 
das gesamte Programm von Anfang 
bis Ende mit der Vorlage verglei- 
chen zu müssen? Nun, eine allge- 
meingültige Methode, die für alle 
Arten von Programmen anwendbar 
wäre, gibt es leider nicht. Dennoch 


erscheint ein gewisses systemati- 
sches Vorgehen durchaus ange- 
bracht. 

Zunächst sollten wir uns darüber 
klarwerden, inwieweit uns der Com- 
puter selbst beiderSuche nach Feh- 
lern helfen kann. Alsersteskommen 
einem dabei natürlich die Fehler- 
meldungen in den Sinn, die beim 
Commodore-Basic ja erfreulicher- 
weise im Klartext erfolgen und recht 
vielfältig sind. Wer mit den engli- 
schen Bezeichnungen nicht sofort et- 
was anfangen kann, hat die Möglich- 
keit, die deutschen Erläuterungen 
dazu im Handbuch nachzuschlagen. 


Was aber soll man tun, wenn der 
Computer gar keine Fehlermeldung 
ausgibt, sondern sich nach »RUN« 
einfach sang- und klanglos verab- 
schiedet und auf keine Tasten mehr 
reagiert? 

Nun, für solche Fälle gibt es im Ba- 
sic des C 64 beziehungsweise des 
VC 20 zwei spezielle Befehle, die 
man immer dann in nicht zu gerin- 
gem Umfang einsetzen sollte, wenn 
man nicht genau weiß, wo denn nun 
der Fehler steckt. Gemeint sind die 
Basic-Befehle STOP und CONT. 
Wenn der Computer beim Äbarbei- 
ten des Programms auf den Befehl 
STOP stößt, unterbricht er die Pro- 
grammausführung und gibt eine 
Meldung »BREAK IN nnn« aus, wo- 
beinnn die Zeilennummer ist, inder 
er die STOP-Anweisung gefunden 
hat. Alle Variablen und auch der 
Stackpointer bleiben dabei erhal- 
ten, so daß die STOP-Anweisung 
auch in Unterprogrammen und in- 
nerhalb von FOR-NEXT-Schleifen 
auftreten kann. 

Nach einem solchermaßen er- 
zwungenen Programmstop kann 
man sich im Direktmodus mit dem 
PRINT-Befehl über die Werte wichti- 
ger Variablen informieren und so- 
gar mit LIST einzelne Programmteile 
anschauen. Danach gibt man den 
CONT.Befehl, und das Programm 
wird ganz normal fortgesetzt. Wenn 
es zu Testzwecken notwendig er- 
scheint, kann man während eines 
Stops auch im Direktmodus Varia- 
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blenwerte verändern oder FOR- 
NEXT-Schleifen verwenden. Aller- 
dings dürfen weder neue Pro- 
grammzeilen eingegeben noch alte 
gelöscht oder verändert werden, da 
dadurch gleichzeitig alle Variablen 
gelöscht werden und CONT danach 
nicht mehr möglich ist. 

Es ist empfehlenswert, an kriti- 
schen Stellen im Programm STOP- 
Befehle einzufügen, um dadurch 
den Programmlauf verfolgen zu kön- 
nenund den Fehler immer mehrein- 
zugrenzen. Kritische Stellen sind ge- 
nerell und ohne Ausnahme alle SYS- 
und USR-Aufrufe, desgleichen alle 
POKE-Befehle, über deren Bedeu- 
tung man sich nicht hundertprozen- 
tig im klaren ist. Im Zweitfelsfalle soll- 
te man auch nach jedem GOSUB im 
Programm zunächst einen STOP- 
Befehl einbauen, um sicherzuge- 
hen, daß das Unterprogramm auch 
wieder auf normalem Wege verlas- 
sen wird. 


Fehlersuche mit 
STOP und PRINT 


Jedesmal, wenn man die Harmlo- 
sigkeit, zum Beispiel eines SYS- 
Befehls, durch davor und danach 
plazierte STOP-Befehle festgestellt 
hat, kann man die STOPs natürlich 
wieder entfernen, um einen flüssi- 
geren Programmablauf zu errei- 
chen. Es empfiehlt sich, alle einge- 
fügten STOP-Befehle auf einem Zet- 
tel zu notieren, um die Übersicht zu 
behalten. Schließlich dienen diese 
Befehle nur der Fehlersuche und 
müssen irgendwann einmal alle wie- 
der entfernt werden. 

In vielen Fällen kann man STOP- 
Befehle durch einfache PRINT- 
Anweisungen ersetzen. Das hat den 
Vorteil, daß keine Programmunter- 
brechung stattfindet und man nicht 
jedesmal CONT eintippen muß. Au- 
ßerdem kann man in PRINT 
Anweisungen auch zusätzliche In- 
formationen geben, zum Beispiel Va- 
riablenwerte ausdrucken oder di- 
rekt auf ein spezielles Problem auf- 
merksam machen. Diese PRINT- 
Anweisungen sollten aber inirgend- 
einer Weise von den normalen Bild- 
schirmausgaben unterschieden 
sein. Zum Beispiel kann man jede 
PRINT-Anweisung zur Fehlersuche 
mit fünf Sternchen oder fünf Pluszei- 
chen beginnen lassen. 

Will man sich mehrere Variable 
während des Programmlaufs aus- 
drucken lassen, sind kleine Unter- 
programmerechthilfreich, die in ei- 
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nen freien Zeilenbereich geschrie- 
ben werden und die alle benötigten 
Ausgaben durchführen. Am Ende 
solcher Unterprogramme sollte eine 
GET-Schleife stehen, die das Pro- 
gramm auf Tastendruck weiterlau- 
fen läßt. Statt langer PRINT-Listen 
braucht man so nur einen GOSUB- 
Aufruf überall dort im Programm 
einzufügen, wo dies sinnvoll er- 
scheint. 


Komfortables Debugging 
mit Basic-Erweiterungen 


Das ArbeitenmitSTOPund CONT 
mag manchem Computerneuling et- 
was ungewohnt erscheinen, aber es 
ist jedenfalls ein recht sicheres Mit- 
tel, einem immer wieder abstürzen- 
den Programm auf die Schliche zu 
kommen. 


LeidersindSTOPund CONT auch 
schon die einzigen speziellen 
Debug-Befehle im Commodore- 
Basic. Viele Spracherweiterungen, 
wie zum Beispiel das bekannte Si- 
mons Basic oder Exbasic Level II, 
stellen zusätzliche Funktionen zur 
schnellen Fehlersuche zur Verfü- 
gung. Wichtige derartige Befehle 
sind zum Beispiel 


* TRACE — listet während des Pro- 
grammlaufs die gerade bearbeite- 
ten Programmzeilen oderzumindest 
die Zeilennummern auf. 


* DUMP — gibt eine Liste aller Varia- 
blen mit ihren derzeitigen Werten 
aus. 


* FIND— suchtim Direktmoduseine 
Zeichenfolge im Programm. 

* ON ERROR G0T0 ... — ermöglicht die 
Fehlerbehandlung im Programm 
selbst (ohne Abbruch). 

Wenn der Computer jedoch noch 
in manierlicher Weise seine Fehler- 
meldungen ausgibt, sind aufwendi- 
ge Verfahren zumeist nicht nötig, 
denn zusammen mit der Meldung 
überdie ArtdesFehlers erfährtman 
ja auch die Zeilennummer des Auf- 
tretens. 


Syntax Error: Wenn der 


Computer nur noch 


»Bahnhof« versteht 


Die häufigste Fehlermeldungist si- 
cherlich der ungeliebte »SYNTAX 
ERROR«, Böse Zungen behaupten 
allerdings, beim VC 20 wäre es der 
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»OUT OF MEMORY ERROR«. Wie 
dem auch sei, solange der Compu- 
ter nur Syntax-Fehler meldet, kann 
man noch von Glück reden. Es han- 
delt sich dabei meistens um einfa- 
che Tippfehler, die nach auflisten 
der entsprechenden Zeile leicht zu 
finden und zu korrigieren sind. Be- 
liebte Fehler sind zum Beispiel feh- 
lende oder überzählige Klammern 
und die Verwechselung ähnlicher 
Zeichen, wie zum Beispiel »0« und 
»O«, »l« und »I« oder »8« und »B«. Sehr 
häufig ist auch die Verwechslung 
von Punkt und Komma, was sich be- 
sonders in DATA-Zeilen verhängnis- 
voll auswirken kann, wie wir nach- 
her noch sehen werden. Wenn Sie 
also irgendwo einen »SYNTAX ER- 
ROR« gemeldet bekommen und in 
der fraglichen Zeile auf Anhieb kei- 
nen Fehler finden, dann gehen Sie 
zuerst die vorhin genannten Punkte 
durch. 

Eine gute Hilfe ist es, mit dem Cur- 
sor die fehlerhafte Zeile Zeichen für 
Zeichen abzufahren und dabei mit 
der Vorlage zu vergleichen. Kom- 
men in der Fehlerzeile viele Klam- 
mern vor, dann empfiehlt sich häufig 
das Anlegen zweier Strichlisten für 
öffnende und schließende Klam- 
mern. Die Anzahlen müssen inner- 
halb jeder Basic-Anweisung über- 
einstimmen. Aber bitte keine Klam- 
mern mitzählen, die in Anführungs- 
zeichen stehen; diese haben mit der 
Syntax nichts zu tun. 


Syntax-Fehler, die man 
nicht sehen kann 


Ab und zu kann es vorkommen, 
daßmanbeialler Sorgfalteinen Syn- 
taxfehler nicht findet, wie zum Bei- 
spiel in der folgenden Basic-Zeile: 
10 OPEN L14:PRINT#1'HALLO": 
CLOSE 1 


Wenn der Computer hier den- 
noch einen Syntaxfehler meldet, 
dann kann das nur eine Ursache ha- 
ben: Bei der Eingabe dieser Zeile 
wurden die Basic-Befehle in der be- 
kannten Art und Weise abgekürzt. 
Der zweite Befehl wurde also als 
»”#1l« eingegeben, was beim Aufli- 
sten wieder zu»PRINT #l« wird. Lei- 
der sind PRINT und PRINT# zwei 
völlig verschiedene Befehle, genau- 
so wie INPUT und INPUT# oder 
GET und GET#. Alle diese 
#-Befehle darf man daher nie ab- 
kürzen. Die normalen PRINT, 
INPUT- und GET-Routinen wissen 
nämlichmitdemnachfolgenden»#« 
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nichts anzufangen und es kommt zu 
einer Fehlermeldung. 

Eine ähnliche Situation kann sehr 
leicht bei Verwendung langer Varia- 
blennamen auftreten. In einem 
Spielprogramm »Schiffe versenken« 
kann zum Beispiel die folgende Zei- 
le auftreten: 

10 ANZAHLSCHIFFE = 12 

In dieser Zeile wird unweigerlich 
ein »SYNTAX ERROR« auftreten, 
weil der Computer innerhalb des 
Variablennamens »ANZÄHLSCHIF- 
FE« das Basic-Schlüsselwort »IF« ent- 
deckt und sich bei aller Änstren- 
gung nicht erklären kann, was eine 
IF-Abfrage an dieser Stelle soll. Trotz 
aller Vorteile für die Übersichtlich- 
keit eines Programms sei daher an 
dieser Stelle von der Benutzung lan- 
ger Variablennamen abgeraten. 


Was tun bei »OUT OF 
DATA«? 


Eine andere häufig auftretende 
Fehlermeldung ist vor allem bei An- 
fängern gefürchtet, nämlich der 
»OUT OF DATA ERROR«. Gefürchtet 
ist dieser Fehler vor allem deswe- 
gen, weil die Zeilennummer, die der 
Computer zu dieser Fehlermeldung 
ausgibt, in den allermeisten Fällen 
keinen Hinweis darauf gibt, an wel- 
cher Stelle denn nun ein Fehler vor- 
liegt. Listet man nämlich die fehler- 
hafte Zeile am Bildschirm auf, so fin- 
det man dort nur den READ-Befehl, 
für den keine DATAs mehr vorhan- 
den waren. InderRegel steht dieser 
READ-Befehl innerhalb einer FOR- 
NEXT-Schleife. Ein typisches, wenn 
auch stark vereinfachtes Beispiel für 
das Auftreten von Fehlern im Zusam- 
menhang mit DATA-Anweisungen ist 
in Listing 1 auf Seite 50 gegeben. In 
den Zeilen 100bis 170 wird eine Prüf- 
summe über den ersten DATA-Block 
gebildet, und nur dann, wenn diese 
Prüfsumme in Ordnung ist, wird in 
den nächsten Programmteil ver- 
zweigt, wo aus dem zweiten DATA- 
Block Zahlen gelesen und an den 
Anfang des Bildschirms gePOKEt 
werden und dort das Wort »COM- 
MODORE« bilden sollen. 

Das Programm enthält nun einige 
Fehler in den DATA-Zeilen, die wir 
gemeinsam herausfinden wollen. 
Stellen wir uns einfach vor, wir hät- 
ten das Programm in Listing 1 ausei- 
ner Zeitschrift abgetippt und dabei 
einige Fehler in den DATA-Zeilen fa- 
briziert. In Listing 2 sind zum Ver- 
gleichnoch einmal die entsprechen- 
den DATA-Zeilen des »Original«- 
Listings abgedruckt. Die Fehlersu- 





che scheint somitrecht einfach: Man 
vergleicht die paar DATAs in beiden 
Listings und wird dann schon den 
Fehler finden. Bei diesem kurzen 
Testprogramm stimmt das natürlich 
auch. Äber stellen wir uns doch ein- 
mal vor, daß die beiden DATA- 
Blöcke insgesamt vielleicht über 
drei volle Listing-Seiten gehen und 
nicht nur über drei Zeilen wie in un- 
serem Beispiel. Dann lohnt es sich 
nämlich mit Sicherheit schon, wenn 
man etwas systematischer an die 
Fehlersuche herangeht. 

Zuerst starten wir unser Pro- 
gramm nach Listing ] einmal ganz 
arglos mit RUN, nachdem wir es vor- 
her auf Kassette oder Diskette abge- 
speichert hatten. Der Programmver- 
lauf ist zu Anfang ganz wie erwartet: 
Der Bildschirm wird gelöscht, es er- 
scheint die Meldung »S = 270« und 
darunter»OK«, dann jedoch erschei- 
nen am oberen Bildschirmrand statt 
eines längeren Wortes nur die bei- 
den Zeichen »@« und »C« und das 
Programm brichtmitder Meldung»? 
ILLEGAL QUANTITY ERROR IN 
230« ab. Was ist hier geschehen? 

Wenn wir uns Zeile 230 einmal auf- 
listen lassen, dann sehen wir 

230 POKEB+IX 


Da wir wissen, daß nur Zahlen zwi- 
schen 0 und 255 gePOKEt werden 
können, vermuten wir den Fehler 
beim Wert der Variablen X. Um un- 
sere Vermutung zu bestätigen, fra- 
gen wir den Computer doch einmal 
ganz einfach nach dem Wert von X, 
indem wir eintippen 

PRINTX 
unddanach die RETURN-Taste betä- 
tigen. Wir erhalten als Äntwort den 
Wert 1513, dertatsächlich zu groß ist, 
um in eine Speicherzelle zu passen. 
Wir vergleichen den zweiten DATA- 
Block mit dem Original (Listing 2) 
und stellen fest, daß wir bei der Ein- 
gabe das Komma zwischen den bei- 
den Zahlen 13 und I3in Zeile 360 ver- 
gessen haben. Das ändern wir, in- 
dem wir das Komma nachträglich 
einfügen. Dank dieses schnellen Er- 
folges bessert sich unsere Stim- 
mung um einiges, was sich jedoch 
nach dem nächsten RUN sehr 
schnell wieder ändert. Zwar er- 
scheint am Bildschirmzunächst ganz 
ordentlich die Prüfsumme des er- 
sten DATA-Blocks und das dazuge- 
hörige »OK«, aber am oberen Bild- 
schirmrand stimmt einiges noch 
nicht: Man liest dort die Zeichenfol- 
ge »@COMMOORE- statt »COM- 
MODORKE«. 

Auf den ersten Blick würde man 
vielleicht vermuten, daß der Fehler 
nur im zweiten DATA-Block stehen 


kann, weil das Lesen des ersten 
Blocks keine Fehlermeldung er- 
zeugt und sogar die Prüfsummenbil- 
dung stimmt. Diese Überlegung ist 
aber nicht ganz schlüssig. Denn 
durch Bildung einer einfachen Prüf- 
summe werden Vertauschungsfeh- 
ler und überflüssige oder fehlende 
Nullen nicht erkannt. Die fünf DATA- 
Zeilen in Listing 3 ergeben zum Bei- 
spiel alle die gleiche Prüfsumme. 

Man sollte sich also nie blindlings 
auf Prüfsummen verlassen. Sie sind 
zwar oft nützlich, um Fehler in DATA- 
Zeilen festzustellen, man darf aber 
aus der Richtigkeit der Prüfsum- 
menprobe niemals auf die Abwe- 
senheit von Fehlern schließen. Au- 
ßerdem taucht eine weitere Schwie- 
rigkeit auf: Wenn man nur eine glo- 
bale Prüfsumme über alle DATAs 
bildet, dann kann man zwar unter 
Umständen einen Fehler nachwei- 
sen, weiß aber immernoch nicht, wo 
ersteckt. Damußmandannschonzu 
anderen Mitteln greifen. 


Mit Listing, Lupe und 
Logik« Dem Fehler 
auf der Spur 


Um den Fehler aufzuspüren, kön- 
nen wir dem Computer einen gro- 
ßen Teil der Arbeit überlassen. Als 
erstes wollen wir feststellen, in wel- 
chem der beiden DATA-Blöcke der 
Fehler liegen könnte. Dazu veranlas- 
sen wir den Computer einfach, nur 
den ersten DATA-Block zu lesen, in- 
dem wir eine STOP-Anweisung hin- 
ter die erste FOR-NEXT-Schleife pla- 
zieren. Wir fügen also folgende Zei- 
le ins Programm ein: 

145 STOP 

Wenn wir das Programm jetzt star- 
ten, erhalten wir die Meldung »BRE- 
AKIN 145«, die von unserem STOP- 
Befehl herrührt. Da aber das Pro- 
gramm bis Zeile 145 durchlaufen 
wurde, muß der erste DATA-Block 
an dieser Stelle vollständig gelesen 
worden sein. Die Variable X enthält 
natürlich immer noch den zuletzt ge- 
lesenen DATA-Wert. Wenn dieser 
Programmteil richtig gearbeitet hat, 
dann müßte X jetzt den Wert Nullhha- 
ben, denn.dies istja gerade derletz- 
te DATA-Wert aus Block |, wie man 
anhand von Listing 1 oder 2 un- 
schwer erkennen kann. Das können 
wir einfach nachprüfen, indem wir 
den Computer nach dem WertvonX 
fragen: 

PRINTX 

Zu unserem Erstaunen ist die Änt- 

wort aber nicht 0, sondern 12. Wir 
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werfen wieder einen Blick auf Li- 
sting 1 und stellen fest, daß die Zahl 
12. die vorletzte Zahl im ersten DATA- 
Block ist. Offenbar wurde eine Zahl 
zuwenig gelesen! Es ist nun ver- 
lockend, einfach den Endwert der 
ersten FOR-NEXT-Schleife um eins 
zu erhöhen, um alle Werte des er- 
sten Blocks zu lesen. Doch halt, hier 
ist Vorsicht geboten. Viel wahr- 
scheinlicher als ein Fehler in einer 
FOR-NEXT-Schleife ist ein Fehler in- 
nerhalb der DATA-Zeilen. Beiso vie- 
len Zahleneingaben kann man sich 
schließlich leicht mal vertippen. Be- 
trachten wir das Problem also ein- 
malvonderanderen Seite. Wenn die 
Anzahl der gelesenen X-Werte 
stimmt, das Programm aber trotz- 
dem nur bis zum vorletzten DATA- 
Wert kommt, dann enthält Block 1 
vielleicht einen DATAWert zuviel. 
Wir wollen also die DATAs in Block 1 
ganz gezielt überprüfen. Dazu 
schreiben wir in einen freien Zeilen- 
bereich, zum Beispiel ab Zeile 1000, 
das folgende kleine Unterpro- 


gramm: 
1000 PRINT "I=";1,"X=";X 
1010 GET A$: IFA$ <> CHR$(32) 
THEN 1010 
1020 RETURN 

In die erste FOR-NEXT-Schleife fü- 
gen wir direkt hinter die READ- 
Anweisung einen Aufruf dieses Un- 
terprogramms ein: 
125 GOSUB 1000 

Wenn wir das Programm nun lau- 
fen lassen, geschieht folgendes: Der 
Computer gelangt mit Zeile 110in die 
Leseschleife. In Zeile 120 wird je- 
weils ein DATA-Element gelesen. 
Dann erfolgt mit der eingefügten 
Zeile 125 ein Sprung in das vorhin 
geschriebene Unterprogrammn. Die- 
ses Unterprogramm druckt den 
Wert der Zählvariablen I und den 
soeben gelesenen DATA-Wert X aus 
und wartet dann, bis die Leertaste 
betätigt wird. Dann kehrt das Unter- 
programm zurück und die Schleife 
wird nach dem NEXT in Zeile 140 er- 
neut durchlaufen. Auf diese Art und 
Weise erhält man am Bildschirm ei- 
ne übersichtliche Darstellung der 
gelesenen DATAWerte, die man 
leicht mit der Vorlage vergleichen 
kann. Wenn wir das Programm jetzt 
starten, erhalten wir jeweils nach 
Drücken der Leertaste eine Bild- 
schirmanzeige, etwa in der folgen- 
den Art: 


I=-1 X=2 
I=2 X=33 
I=3 X=11] 


und so weiter bisschließlich das En- 
de von DATA-Zeile 310 erreicht wird: 
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Nanu? Das hatten wir eigentlich 
nicht erwartet. X=18 ist der letzte 
Wert in Zeile 310, und danach sollte 
eigenlich der erste Wert aus der 
nächsten DATA-Zeile gelesen wer- 
den, nämlich X=1l. Woher also 
kommt dieser Wert Null bei I=10? 
Ein Vergleich von Zeile 310 in Listing 
1 (abgetippt) mit Listing 2 (Original) 
führt uns auf des Rätsels Lösung. Of- 
fenbar haben wir beim Abtippen am 
Ende von Zeile 310 noch ein Komma 
gesetzt, was da nicht hingehört. Ein 
Komma in einer DATA-Anweisung 
trennt für unseren Commodore- 
Computer aber immer zwei Werte 
voneinander, und da er hinter dem 
letzten Komma nichts mehr findet, 
setzt er kurzerhand den Wert Null 
dafür an. 

Damit haben wir den überzähli- 
gen DATA Wert im ersten Block ge- 
funden. Wir entfernen das Komma 
in Zeile 310, löschen die Zeile 125 mit 
dem GOSUB-Befehl und ebenso die 
Zeile 145 mitdemnunnicht mehr be- 
nötigten STOP-Befehl. 

Ein erneuter Probelauf des Pro- 
gramms schreibt die Zeichenfolge 
»COMMOORKEKk links oben in den 
Bildschirm — und bringt die Fehler- 
meldung »OUT OF DATA ERRORIN 
220«. Nach Auflisten der Zeile 220 se- 
hen wir leider nur 
220READX 

Das bringt uns nicht viel weiter. 
Die Fehlermeldung und das ver- 
stüimmelte Wort »COMMOORE« 
am oberen Bildschirmrand deuten 
aber auf einen fehlenden DATA- 
Wert in Block 2 hin. Untersuchen wir 
also Block 2 einmal genauer. Das 
Unterprogramm zum Ausdrucken 
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der Werte vonlund Xam Bildschirm 
befindetsichjaabZeile 1000nochim 
Speicher. Wir brauchen daher nur 
einen entsprechenden GOSUB-Be- 
fehl in die zweite Leseschleife einzu- 
fügen, am besten gleich nach dem 
READ-Befehl, also etwa in Zeile 225: 
225 GOSUB 1000 

Wir erhalten wieder eine leicht zu 
überprüfende Liste aller DATA- 
Werte, diesmal aus Block 2. Beil=4 
fällt uns sofort etwas auf. Am Bild- 
schirm erscheint nämlich 
I=4 X=154 

Das ist die einzige Zahl mit Nach- 
kommastellen, was bei dieser Art 
der Bildschirmausgabe sofort ins 
Auge sticht. Wir vergleichen den 
Wert mitder Eintragung im Original- 
listing und sehen sofort den Fehler: 
Wir haben beim Abtippen irrtüm- 
lich einen Punkt statt eines Kommas 
eingegeben. Die Korrektur ist leicht 
ausgeführt. 

Danach löschen wir Zeile 225 mit 
dem GOSUB 1000 wieder und über- 
zeugen uns durch einen abschlie- 
ßenden Probelauf vom einwandfrei- 
en Funktionieren des Programms. 

Natürlich kann man nicht erwar- 
ten, daßsichalle Fehlersoreibungs- 
los lokalisieren lassen wie in unse- 
rem kleinen Beispiel. Gerade bei 
Fehlern in DATA-Zeilen kann die Su- 
che sich namentlich bei längeren 
DATA-Blöcken um einiges schwieri- 
ger gestalten. Aber bei Program- 
men mit vielen DATA-Zeilen sind die 
hier beschriebenen Methoden zum 
Auffinden von versteckten Fehlern 
einfach unentbehrlich, wennmanei- 
nigermaßen schnell und sicher zum 
Ziel gelangen will. (ev) 
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B=1024:REM ANFANGSADRESSE BILDSCHIRM BEI C &4 
REM | 
PRINT"“S":REM BILDSCHIRM LOESCHEN 
PRINTZFRINT:PRINTZPFRINT 
REM 

REM DATA-ELOCK 1 LESEN 

REM 

FOR I=1 T0-17 

READ X 

S=S+X 

NEXT I 

PRINT "S =";5 

IF S<>282 THEN PRINT "PRUEFSUMMENFEHLER" END 

PRINT "OK" 

REM 

REM 

REM DATA-BLUCK 2 LESEN 

REM 

FOR I=0 TO 8 

READ X 

FOKE B+1,X 

NEXT I 

END 

REM 

REM 

REM DATA ELOCK 1 

REM 

DATA 12,33,11,4,17,38,22,19,7,18, 

DATA 11,41,15,19,3,12,0 


REM 
REM DATA ELOCK 2 
REM 
DATA 3, 
READY. 
Listing 1: In diesem Testprogramm sind einige 
Fehler in den DATA-Zeilen enthalten. 














290 REM 
295 REM 
300 REM DATA BLOCK 1 

305 REM 

S1ı0 DATA 12,33,11,4,17,38,22,19,7,18 
320 DATA 11,41,15,197,3,12,0 


345 REM 

350 REM DATA BLOCK 2 

355 REM 

360 DATA 3,15,13,13,15,4,13,18,5 Listing 2: Dies ist nochmals der DATA-Block aus Li- 
READY. sting 1, aber diesmal das fehlerfreie »Originak«. 














100 DATA 12,13,14,15,16,17,0 
200 DATA 13,12,14,15,16,17,0 
300 DATA 13,12,14,15,16,17,0,0,0 
Listing 3: Die Bildung einer Prüfsumme ist kein zuver- 320 DATA 11,15,14,15,16,18,0 
lässiges Mittel, um Fehler in DATA-Zeilen zu ent- ES 
decken. Wie man leicht nachrechnen kann, ergibt jede i 36 20 
der sechs DATA-Zeilen die gleiche Prüfsumme. READY. 
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eider wird man derartige Pro- 

gramme nur sehr selten finden, 

da beide Computer Grundle- 
gendes gemeinsam haben: Die 
Hardwareeigenschaften werden 
von der Software — sprich vom Basic 
— kaum unterstützt. Immer dann, 
wenn die grafischen oder musikali- 
schen Fähigkeiten von C 64 und VC 
20 angesprochen werden, ge- 
schieht dies durch POKE-Befehle, 
auch wenn es nur darum geht, zum 
Beispiel die Farbe des Bildschirm- 
rahmens einzustellen. 

Das allein wäre ja noch nicht so 
schlimm. Nun ist aber die entspre- 
chende Hardware, also Video- und 
Soundchip, bei beiden Computern 
grundlegend verschieden aufge- 
baut und belegt zudem noch völlig 
unterschiedliche Adressen im Spei- 
cher. So ist es kein Wunder, wenn 
das Umschreiben von C 64-Pro- 
grammen auf den VC 20 (und umge- 
kehrt) in der Regel mit erheblichen 
Schwierigkeiten verbunden ist. Wir 
wollen im folgenden versuchen, ei- 
ne ganze Reihe dieser Schwierigkei- 
ten aus dem Weg zu räumen. Als er- 
ste grobe Übersicht soll dabei die 
Tabelle 1 dienen. Auf weitere Einzel- 
heiten wird im folgenden näher ein- 
gegangen. 

Bevor man daran gehen kann, für 
den jeweils anderen Computer ge- 
schriebene Software an den eige- 
nen C 64 oder VC 20 anzupassen, 
müssen die Programme erst einmal 
in den Speicher gebracht werden. 
Ein Blick auf die Modulschächte 
beider Computer verrät sofort, daß 
es mit dem Austausch von Steckmo- 
dulen nicht allzu weit her sein kann: 
Das Modulformat ist völlig unter- 
schiedlich. 

Leider ist auch der Softwareaus- 
tausch per Programmkassette nur 
über einen Umweg zu realisieren. 
Zwar ist das Aufzeichnungsformat 
auf Cassette bei beiden Computern 
gleich, dennoch kann der eine Com- 
puter die Aufzeichnungen des an- 
deren in den meisten Fällen nicht le- 
sen. Der Grund hierfür liegt darin, 
daß der VC 20 eine höhere Taktfre- 
quenz als der C 64 hat (VC 20-Pro- 
gramme sind um einiges schneller 
als entsprechende C 64-Program- 
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Der Commodore 64 wird oft als der »große Bruder» des 
VC 20 bezeichnet. Tatsächlich sind zum Beispiel 
Betriebssystem, Basicinterpreter und Schnittstellen 
weitgehend identisch. Daher können Basicprogramme, 
in denen keine Befehle und Funktionen wie POKE, 
PEEK, SYS und USR vorkommen, praktisch unverändert 
übertragen werden. 





Zeichengenerator- 
ROM 
Video-Chip (VIC) 


Syntheziser Chip _ 
(SID) 

VO 1(CIA#]) 
1VO2(CIA#2) 
FARB-RAM 
Basic-ROM 





Video-RAM 
freier RAM-Bereich 
Zeichengenerator- 


Vo 1lWVIAz) 
1/0 2 (VIA#2) 
Farb-RAM 
Basic-ROM 


Tabelle 1. Die Basisadressen wichtiger Speicher- und Registerbereiche 


me). Dadurch gerät beim Lesen ei- 
ner fremden Kassette die Synchro- 
nisation völlig aus den Fugen. Den 
einzigen Äusweg in dieser Situation 
bietet die Verwendung eines »gro- 
ßen« CBM der Serien 30xx oder 
40xx als Vermittler. Die Taktfre- 
quenz dieser CBM-Rechner liegt 
zwischen der des © 64 und der des 
VC 20, wodurch es zum Beispiel 
möglich ist, VC 20 Programme zu- 
nächst mitdem CBM zu laden, dann 
wieder abzuspeichern und nun wie- 
derum mit dem C 64 zu laden. 

Beim Programmaustausch per 
Floppy-Disk treten solche Probleme 
nicht auf. Hier kann man nach Her- 
zenslust VO 20-Software in den C 64 
laden oder auch umgekehrt. Hat 
man allerdings keine Floppy oder 
liegt dasinteressierende Programm 
nicht auf Diskette vor, dann bleibt in 
der Regel nur noch eins zu tun: Die 
Zähne zusammenbeißen und das 
Programm vom Listing abtippen. 
Dabei kann man dann auch gleich 
alle nötigen Programmänderungen 
vornehmen. 


Leider gibt es viele Programme 
sowohl für den VC 20 als auch für 
den C 64, die man nicht durch Än- 
dern einiger POKE-Adressen und 
kleinen Korrekturen am Bildschirm- 
layout an den jeweils anderen Com- 
puter anpassen kann. 

Dazu gehören generell alle Pro- 
gramme, die hochauflösende Grafik 
verwenden. Die Prinzipien, nach 
dem die hochauflösende Grafik auf 
denbeiden Computern realisiert ist, 
sind völlig unterschiedlich. Außer- 
dem ist es natürlich von vorne her- 
ein völlig aussichtslos, ein C 64-Pro- 
gramm, das Sprites und Synthesi- 
zereffekte einsetzt, für den VC 20 
umschreiben zu wollen. Umgekehrt 
gibt es eine solche Einschränkung 
allerdings nicht — der VC 20 kennt 
keine Sprites und sein Tongenerator 
läßt sich mit dem Synthesizer des 
C 64 allemal simulieren 

Sehr viel Vorsicht ist geboten, 
wenn das Programm längere Ab- 
schnitte in Maschinensprache ent- 
hält. Oftmals müssen diese Maschi- 
nenspracheroutinen in andere Spei- 
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cherbereiche verschoben werden, 
um gemeinsam mit dem Basic-Pro- 
gramm laufen zu können. Wir wollen 
unsandieser Stelleabernurmitden 
Anpassungen bei Basic-Program- 
men beschäftigen. 


POKE-Befehle für Farbe 
und Bildschirm 


Selbst die einfachsten Program- 
me enthalten in der Regel Befehle, 
um Rahmen- und Hintergrundfarbe 
des Bildschirms einzustellen. Beim 
VC 20 werden beide Einstellungen 
gleichzeitig mit einem einzigen 
POKE-Befehl in Register 36879 
durchgeführt (Tabelle 2). Der C 64 
verwendet zwei getrennte Register, 
nämlich 53280 für die Rahmenfarbe 
und 53281 für die Hintergrundfarbe. 
Jeweils 16 Farben sind möglich (Ta- 
belle 3). Zum Beispiel erzeugt der 
Befehl POKE 36879,95 beim VC 20 
einen gelben Bildschirmrahmen 
und einen grünen Hintergrund. Mit 
POKE 53280,7 : POKE 53281,5 wird 
dasselbe am C 64 erreicht. 

Beim C 64 enthält der Bildschirm 
25 Zeilen zu je 40 Zeichen; der Bild- 
schirmspeicher belegt die Adres- 
sen 1024 bis 2023. Der zugehörige 
Farbspeicher geht von 55296 bis 
56295. Mit POKE 1024, 1 : POKE 
55296, 2 erscheint zum Beispiel ein 
rotes »Ä« in der linken oberen Bild- 
schirmecke. Der für den Anwender 
verfügbare RAM-Bereich beginnt 
bei Adresse 2048 (Bild ]). 

Beim VC 20 wird die Angelegen- 
heit etwas komplizierter. Die An- 
fangsadressen von Bildschirm- und 
Farbspeicher sind nämlich je nach 
Speicherausbau unterschiedlich 
(Bild 2). Inder Grundversion und mit 
der 3-KByte-Erweiterung beginnt 
das Video-RAM bei Adresse 7680 
und geht bis Adresse 8185. Das 
Farb-RAM belegt dann den Bereich 
von 38400 bis 38905. In dieser Konfi- 
guration liegt der Bildschirmspei- 
cher oberhalb des für den Anwen- 
der verfügbaren RAM-Bereiches, 
derab Adresse 4096 (Grundversion) 
beziehungsweise 1024 (3-KByte-Er- 
weiterung) beginnt. Sobald jedoch 
eine Speichererweiterung von min- 
destens 8 KBytes eingesteckt ist, 
wandert das Video-RAM nach »un- 
ten» und beginnt dann ab Adresse 
4096. Dies geschieht, um für Basic- 
Programme einen zusammenhän- 
genden Speicherbereich von der 
Adresse 4608 an aufwärts zu schaf- 
fen. Eine eventuell zusätzlich vor- 
handene 3-KByte-Erweiterung kann 
in diesem Fall nicht für Basic-Pro- 
gramme genutzt werden. Schließ- 
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ROT 40 4l 42 





Tabelle 2. Farbkombinationen für Bildschirmrahmen und 


Tabelle 3. Farbwerte bei C 64 und VC 20 


lich verändert auch noch das Farb- 
RAM seine Lage und startet jetzt bei 
Adresse 37888. 

Der Bildschirm des VC 20 ist auf- 
geteilt in 23 Zeilen zu je 22 Zeichen. 
Insgesamt sind also 506 Bildschirm- 
stellen vorhanden, das sind etwa 
halb soviele wie beim C 64. Eine An- 
passungdesBildschirmlayoutsistal- 
soin fast allen Fällen erforderlich. In 
der Regel dürfte das kein Problem 
darstellen. Bei der Anpassung von 
VC 20-Programmen an den C 64 
wird man des öfteren PRINT-Anwei- 
sungen zusammenfassen, da eine 
Bildschirmzeile beim C 64 fast dop- 
pelt soviele Zeichen wie eine ent- 
sprechende VC 20-Zeile aufnehmen 
kann. Im umgekehrten Fall ist das 
Einfügen von PRINT-Befehlen sinn- 
voll, um eine übersichtliche Bild- 
schirmdarstellung zu erhalten. Ern- 
ste Schwierigkeiten kann es nur bei 
der Ausgabe von Tabellen auf dem 
Bildschirm geben. Eine sechsspalti- 


BLKE WHT RED CYAN PUR GRN BLU YEL 


SCHW WEISS ROT 


8 9 10 1 12 13 14 15 
4 25 26 27 28 29 30 3l 






TÜR- VIO- GRÜN BLAU GELB 


KIS LETT 


43 44 45 46 47 


Hintergrund beim VC 20 


ge Zahlentabelle zum Beispiel läßt 
sich auf dem C 64 ganz gut darstel- 
len, beim VC 20 wird man bei derar- 
tigen Versuchen unangenehm an 
die arg begrenzte Zeilenbreite erin- 
nert. In solchen Fällen kann man 
versuchen, weniger interessante 
Spalten der Tabelle einfach fortzu- 
lassen. Wenn das nicht erwünscht 
oder möglich ist, hilft nur noch der 
CMD-Befehl, um die Ausgabe der 
entsprechenden Tabelle auf den 
Drucker umzuleiten. 

Das Betriebssystem von C 64 und 
VC 20 ist weitgehend identisch. Na- 
türlich gibt es einige Unterschiede 
bei den Ein-/Ausgabeoperationen, 
bedingt schon alleine durch das un- 
terschiedliche Bildschirmiormat. 
Fast alle nutzbaren Adressen in der 
Zeropage oder in den anderen vom 
Betriebssystem benutzten Speicher- 
bereichen haben jedoch die glei- 
che Bedeutung. So befindet sich 
zum Beispiel bei beiden Computern 
der Kassettenpuffer zwischen den 
Adressen 828 und 1019 und mit »? 
PEEK(43) + 256 * PEEK(44) erhält 
man beidesmal die Änfangsadresse 
des Basic-Programms. 

Eine wichtige Ausnahme von die- 
ser Regel ist der USR-Vektor. Beim 
VC 20 befindet er sich in den Spei- 
cherstellen | und 2 am Anfang der 
Zeropage, in Adresse 0 steht immer 
ein »]MP«-Befehl. Jedesmal bei der 
Ausführung der USR-Funktion ver- 
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zweigt das Basic zur Adresse 0 und 
aufgrund des dort stehenden »]MP« 
sofort weiter zur Adresse, die in sich 
in den Speicherzellen 1 und 2 befin- 
det. Beim C 64 befinden sich dage- 
gen am Änfang der Zeropage zwei 
Register des 6510-Mikroprozessors, 
so daß der USR-Vektor hier in die 





F# 


POKE 36878,X 
POKE 36874,X 


0 bis 15 
128 bis 255 


$C000 und $DFFC entsprechen den 
C 64 Adressen zwischen $A000 und 
$BFFC, die Differenz ist also gerade 
$2000 oder dezimal 8192. In Adresse 
$BFFD steht beim C 64 ein Sprung 
nach $E000, um den RAM- und V/O- 
Bereich zwischen $C000 und $DFFF 
zu überbrücken. Durch diesen 





C# 
xX= 


Stimmlagen-Befehle Funktion 


setzt die Lautstärke 


spielt Note 


POKE 36875,X 128 bis 255 spielt Note 


POKE 36876,X 
POKE 36877,X 


128 bis 255 
128 bis 255 


spielt Note 
Geräuscheffekte 





Tabelle 5. Notenwerte und Tongeneratoradressen beim VC 20 


Adressen 785 und 786 verlegt wur- 
de. Bei Programmen, welche die 
USR-Funktion verwenden, müssen 
diese unterschiedlichen Adressen 
unbedingt beachtet werden. 

Wie aus den Bildern 1 und 2 her- 
vorgeht, liegt der Basic-Interpreter 
beim C 64 in einem anderen Adreß- 
bereich als beim VC 20. Da die Rou- 
tinen aber bis auf Ausnahmen (USR- 
Funktion) völlig gleich sind, kann 
man die Adressen sehr einfach um- 
rechnen: VC 20-Adressen zwischen 


RA A:k-sa 


Sprungbefehl entsteht im folgenden 
eine Ädressendifferenz um drei By- 
tes. Von allen C 64-Adressen zwi- 
schen $E000 und $E37A müssen da- 
her diese drei Bytes abgezogen 
werden, um die entsprechenden 
VC 20-Adressen zu erhalten. 

Einige häufig vorkommende 
POKE-Adressen wurden bisher 


Bild 1. Spei des Commodore 64 im 
Grundzustand. Im Bereich $D000 bis $DFFF sind 


zusätzlich 4 KByte Zeichengenerator-ROM überlagert 


noch nicht erwähnt. Gemeint sind 
die zur Programmierung von Musik 
und Geräuscheffekten benutzten 
Register. Leider ist die Art und Wei- 
se der Tonerzeugung bei beiden 
Computern völlig unterschiedlich, 
so daß sich keine äquivalenten 
POKE-Befehle angeben lassen. 
Der C 64 verfügt nämlich über ei- 
nen vollwertigen Synthesizer-Bau- 
stein, während der VC 20 nur »nor- 
male« Tongeneratoren besitzt. Ta- 
belle 4 enthält für alle VC 20 Besitzer 
eine Übersicht über die beim C 64 
zur Tonerzeugung benutzten Reci- 
ster. Diese Tabelle dient allerdings 


8 K Betriebs- 
system-ROM 


1KV/ -Bereich 
1K Farb-RAM 
2 K Systemkontrollen 


4KRAM für 
Maschinensprache 


8 K Basic-ROM 


1 KRAM Zeropage, Stack 
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wirklich nur zur Orientierung, wel- 
che POKE-Befehle beim C 64 zur 
Tonerzeugung dienen. Eine Simula- 
tion des C 64-Synthesizers ist mit 
dem VC 20 nicht möglich. Es emp- 
fiehlt sich daher, beider Programm- 
anpassung zunächst einmal alle der- 
artigen POKE-Befehle fortzulassen 
und später eigene Sound-Routinen 
einzufügen. 

C 64-Besitzer haben es hier etwas 
besser: Mit etwas Geschick und ei- 
nem guten Handbuch zur Musikpro- 
grammierung können sie dem C 64 
auch alle VC 20-Töne entlocken. Als 
Referenz hierzu kann Tabelle 5 mit 


den Daten zu den Tongeneratoren 
des VC 20 dienen. Im Zweifelsfalle 
sollte man aber auch hier eher auf 
originalgetreue Tonuntermalung 
verzichten und sich damit eine gan- 
ze Menge Arbeit sparen. 

Und noch ein Punkt, wo der VC 20 
hardwäremäßig benachteiligt ist: 
Der C 64 verfügt nämlich gleich 
über zwei Joystickports (mit den 
Adressen 56320 und 56321), wäh- 
rend der VC 20 sich mit einem Än- 
schluß zufrieden geben muß, der zu 
allem Überfluß auch noch ein recht 
kompliziertes Abfrageprogramm 
erfordert. Der Feuerknopf und die 

























DEZIMAL HEX 
65535 FFFF 
8 K Betriebs- 8 K Betriebs- 
system-ROM system ROM 
57344 E0000 
8K Basic-ROM 8K Basic-ROM 
49152 C000 
8 KSteckmodul- 8 K Steckmodul- 
bereich Bereich 
am n 
1/O-Erweiterungen 38912 WO-Erweiterungen 9800 
0,5 K Farb-RAM Sn 400 
BI 1 KSystemkontrollen 
z 36864 - 9000 
4KZeichen- 4 KZeichen- 
generator-ROM generator-ROM 
32768 8000 
8K Erweiterung 3 
(+24 K) 
24576 6000 
8K Erweiterung 2 
(+ 16K) 
16384 4000 
8K Erweiterung | 
(+8K) 
0,5 K Video-RAM en 35KRAM 
35KRAM (Grundversion) ch 
Garden) #08 | OSKVideoRAM | 
4098 0,5 KVideo-RAM 1000 
Erweiterung frei oder 3K für 
+3 KRAM Maschinensprache 
1 ’K'RAM Zeropage. Stack - IK RAM Zeropage, Stac. 
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Schalter 0, 1 und 2 des Joysticks wer- 
den nämlich beim VC 20 über VIA 
#] gelesen, während der Zustand 
von Schalter 3 über VIA #2 abge- 
fragt wird. Normalerweise sind Joy- 
stickabfragen in Programmen leicht 
zu finden. Halten Sie beim VC 20 
nach PEEKS in die Speicherstellen 
37137 und 37152 Ausschau und beim 
C 64 nach entsprechenden Abfra- 
gen der Adressen 56320 und 56321. 
Anschließend muß die gesamte Joy- 
stickroutine für den jeweiligen 
Rechner neu geschrieben werden, 
da die Art der Äbfrage einfach zu 
unterschiedlich ist. 

Bei der Steuerung mittels Dreh- 
reglern (sogenannten Paddles) ist 
die Anpassung wesentlich einfa- 
cher zu realisieren. Die Paddle- 
Werte werden beim C 64 aus den 
Registern 54297 und 54298 ausgele- 
sen. Beim VC 20 sind es die Register 
36872 und 36873. Das Umschreiben 
besteht hier also lediglich im Einset- 
zen der entsprechenden Adressen 
in die PEEK-Befehle. 


Wo sich das Umschreiben lohnt 


An dieser Stelle muß noch einmal 
deutlich darauf hingewiesen wer- 
den, daß die Zahl derjenigen Pro- 
gramme, die mit vertretbarem Auf- 
wand vom C 64 zum VC 20 oder um- 
gekehrt übertragen werden kön- 
nen, doch verhältnismäßig gering 
ist. Bei Spielprogrammen ist in der 
Regel äußerste Vorsicht geboten, da 
hier aus Geschwindigkeitsgründen 
zumeist mit Routinen in Maschinen- 
sprache gearbeitet wird. Außerdem 
ist bei Spielen in der Regel das Bild- 
schirmlayout fest vorgegeben, so 
daß wegen der unterschiedlichen 
Bildschirmkapazität beider Compu- 
ter sehr wahrscheinlich größere 
Probleme auftreten werden. Von 
Sprites und hochauflösender Grafik 
einmal ganz zu schweigen. 

Dagegen gibt es viele Anwen- 
dungsprogramme, welche den 
Computer nicht zu einer hochspe- 
zialisierten Spielmaschine machen, 
sondern ganz einfach Problemlö- 
sungen in Basic anbieten. Dabei 
kann es sich beispielsweise um ein 
Textverarbeitungsprogramm, eine 
Lagerverwaltung oder ganz einfach 
um ein Programm zum Ausdrucken 
eines Jahreskalenders handeln. Für 
fast alle derartigen Programme soll- 
te es möglich sein, eine Anpassung 
mit Hilfe der hier abgedruckten Ta- 
bellen und Adressenvergleiche vor- 
zunehmen. (ev) 
Bild 2. Speicherbelegung des VC 20 bis 3-KByte- 
Erweiterung (links) und ab 8-KByte-Erweiterung 
(rechts) 
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DIREKTZUGRIFF 


K: wir gleich zu den Vor- |n diesem Bericht werden die Unterschiede zwischen 


und Nachteilen. Der Hauptvor- 2 x 2 S 
Keil der teistiven Date ist der der relativen und der sequentiellen Datei aufgezeigt und 
t 7 t = - " = =- 
ver Vorteilist daßeigentlichnurwe. anhand eines Beispielprogramms die Programmierung 
nig Speicherplatz des Computers giner relativen Datei erklärt. 


notwendig ist, nämlich nur so viel, 


wie das Programm selbst benötigt. 
Deshalb ist eine sinnvolle Anwen- 
dungdieser Dateiformauchmitdem 
VC 20 in der Grundversion möglich. 
Allerdings ist ein Diskettenlaufwerk 
unbedingt notwendig. Die sequen- 
tielle Datei hingegen benötigt viel 
Speicherplatz im Computer, und ein 
schneller Zugriff auf Daten ist nicht 
einfach zu realisieren, zumindest 
muß die gesamte Datei erst in den 
Speicher des Computers geladen 
werden, bevor man sinnvoll mit ihr 
arbeiten kann. Jedoch istnichtunbe- 
dingt ein Diskettenlaufwerk notwen- 
dig, die Datasette tut's auch, wenn 
auch erheblich langsamer. Der 
Nachteil der relativen Datei ist die 
Art des Zugriffs auf bestimmte Da- 
ten. Er ist nämlich nur über die Da- 
tensatznummer möglich. Das heißt: 
Angenommen, wir haben uns eine 
Adressendatei aufgebaut und auch 
schon eine Anzahl Adressen einge- 
geben. Wenn wirunsjetzt die Adres- 
se von Anton Huber ausgeben las- 
sen wollen, so ist das nicht möglich, 
indem wir den Namen »Huber« ein- 
geben und dann das Ergebnis, sei- 
ne Adresse, aufeinen Schlag voruns 
haben. Dazu müßten wir seine Satz- 
nummer kennen. Vereinfacht kann 
man sagen, daß die Satznummer an- 
gibt, die wievielte Adresse gemeint 
ist. Satznummer 14 bedeutet also die 
14. Adresse. Diese Adresse findet 
der Computer, weil er vom Dateian- 
fang ausgeht, denersich merkt, und 
dann 13 Datensätze überspringt (auf 
den nächsten Datensatz positio- 
niert), um direkt den 14. Datensatzzu 
lesen (daher der Name relative Da- 
tei: relativ zum Dateianfang). 


mn =ıR-sa 
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EnEXEEHECEERSEBS KK N EKEH ER KK HE H 
» SBRESSENDAIEL Sa’ER/T7 REL + 
ERKKEIEREREEEREERERKEE NEFFEN NEN 
IS2GREN 19:9,19 

1 :OPEN 1,8,2,"ADR. REL5JLJAHFGERSE 


AUSWAHL = 


T 


mfSts 
= 


ni 


ABMUEN" 7 


din 


c 
u um on 


hi RELATIVE DATEI S4’ER 7" 
INT SPRINT 
. DATEI EINRICHTEN" 
DATEN EINGEBEN" 
SUCHEN UND ANZEIGEN" 
PRINT 


FRINT x = FROGRAMMENDE" 
FRINT :FRINT 

FRINT "WAEHLE" 

Get R#:IE R3="" THEN 

IF Rt="1" THEN GOSUE 

IF RF="2" THEN GUOSUB 

IF R$="&" THEN GOSUB 

IF Rf="x" THEN CLOSE 


Sort 1000 


Nm 
Pad al paul pen dans 

ZZEZLZ 
a Enz 


= 


340 PRINT "Ü ANZEIGE DATENSATZ" 


FRINT 
" NUMMER ";RN:FPRINT 


" NAME "NVE" "NNE 
" STRASSE + 

* BEZ/ÄORT 
“ TEEEFON 
:FRINT :FRINT 


ei 
ZAZ 
En En 


bi 
...u 
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Mit diesem Programm können Sie bis zu 1978 Datensätze (Adressen) verwalten. Das gilt für C 64 
und für den VC 20! 
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: GOSUB 


> REM 


a RETURN 


13000: REM 


7200: REM 


DATENSATZNR.EINGSAB 
LESEN 


GOSUB 


>Q 3120 
:FRINT :ERINT 
" NOCHT NICHT BESCHRIEBEN" 
: PRINT 
Q 3140 

GOSUE S000: REM 

2000: REM 
FRIN! " DRUECKE 
GEI Re: IF Re="" 


RETURN 


AUFTEILEN 
ANZEIGEN 
TASTE" 
THEN 3150 


EINGABE 


REM — 
REM 


SOSUE 
GOSUE 
GOSUE 
GOSUB 
RETURN 


Rep nn a a 
REM O AUFIEILEN DATENSATZ IN FELDER 
REP ee Ba een onen tb e er rernerbe enge 


ANVE=LEF IF (RUF, 15) 
KNE=MIDEF(RUF,16,15) 
SRKE=MIDS(RCH, 31,20) 
"LE=MIDFIRCH, 51,4) 
UT#=MIDE (RCH,55,15) 
\E&=M1DE (RUF, 70,12) 
RE TURM 

REM 


REM 


DATENSATZNR. 
EINGABE 
VEREETTEN 
SFEICHERN 


13000: REM 
Son: REM 
/OOD:REM 
Yuan: REM 


EINSABE NEUE DATEN a 


EINGABE NEUE DATEN" 
u NUMHIEK 
PRENI 

"NACHNAME "NN 


"DORHANME 
INFUI 
INFUT 
INFU 
INFUT "TELEFON 
FRINT :FRINT 
FRINT " ADRESSE Ok (J/N 
GET Rt:IF Rf="" THEN 6170 


IF R$="N" THEN 5040 
IF R$&LH"J" THEN 8170 


"STRASSE 
SEUSTLZ, 


"ORT 


a" 
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Dazu ist eine Voraussetzung not- 
wendig: Die Datensätze müssen alle 
die gleiche Länge haben. Wie das 
realisiert wird, erkläre ich noch. 

Um einer möglichen Frustration 
vorzubeugen, sei gesagt, daß auch 
eine direkte Suche über einen Na- 
men möglich ist, indem man die Vor- 
teile der relativen Datei mit der der 
sequentiellen Datei verknüpft. 

Eine relative Datei bestehtim Prin- 
zip aus 3 Teilen: 

1. Einrichten einer Datei 

2. Speichern (Schreiben) eines 

Datensatzes 

3. Lesen eines Datensatzes 

Gehen wir diese Teile Schritt für 
Schritt durch. Anhand des Listings 
können Sie diese Schritte mitverfol- 
gen. 


1. Einrichten einer relativen Datei 
Um mit eeinerrelativen Dateiarbei- 
ten zu können, müssen 2 Kanäle zur 
Floppy geöffnet werden. Zumersten 
ist das der Kommandokanal (Kanal 
15) und zweitens ein beliebiger an- 
derer Kanal. Der Kommandokanal 
ist notwendig um den Positionierbe- 
fehl zu übertragen. Mit dem ande- 
ren Kanal wird die Datei eröffnet 
und bearbeitet. 
1.a) Öffnen des Kommandokanals 
130 CLOSE 15:0PEN 15,8,15 
Sicherheitshalber sollte man vor 
jedem OPEN ein CLOSE setzen, um 
eine eventuelle Fehlermeldung »FI- 
LE OPEN ERROR» zu verhindern. 


1.b) Eröffnen der Datei und Festsetzen der Da- 
tensatzlänge 

Wie schon erwähnt, ist ein Merk- 
mal der relativen Datei, daß jeder 
Datensatz die gleiche Länge besit- 
zen muß. Diese Angabe muß beim 
Einrichten der Datei angegeben 
werden. Das geschieht mit folgen- 
dem Befehl: 
OPEN Ifn,ga,kanal,’dateiname,L}’ + CHR$(da- 
tensatzlänge) 
(im Listing Zeile 140 und 11120) 
fn = logische fillenummer 
ga = Geräteadresse (normalerwei- 
se 8) 
kanal (2-14) 

dateiname = Name der Da- 
tei,wwird so im Directory abgelegt, im 
Beispiel »ADR.REL«. 
L = Kennzeichen für eine relative 


. Datei 


datensatzlänge = Summealler Feld- 
längen (1-254) 

Der Buchstabe »L« sagt dem DOS, 
daß eine relative Datei eröffnet 
wird. Diesem Buchstaben muß die 
Angabe der Datensatzlänge folgen. 
Sie wird mit dem CHR$ gesandt. Im 
Beispiel setzt sich ein Datensatz fol- 
gendermaßen zusammen: 


ka Ra 
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NAME = 15 Buchstaben 
VORNAME = 15 Buchstaben 
STRASSE = 20 Buchstaben 
POSTLZ = 4 Buchstaben 
ORT = 15 Buchstaben 
TELEFON = 12 Buchstaben 


Das ergibt insgesamt 81 Buchsta- 
ben pro Datensatz. Da jeder Daten- 
satz (auch RECORD genannt) mit ei- 
nem RETURN abgeschlossen wird, 
erhöht sich die Datensatzlänge auf 
insgesamt 82 Zeichen. 


1.c) Positionieren 

Der Computer findet einen be- 
stimmten Datensatz über die Daten- 
satznummer, indem er sich den Da- 
teianfang merkt und die entspre- 
chende Anzahl Datensätze über- 
springt. Genauer gesagt, er positio- 
niert auf diesen Datensatz. Und das 
wird mit dem Positionierbefehl erle- 
digt. Dieses Kommando wird über 
den Kommandokanal (15) der Dis- 
kette gesandt. Seine Form ist: 

PRINT # Ifn’’P”-+CHR$(kanal+ 
CHRS(low)+CHR$(high)-+CHRS(byte) 
(siehe dazu Zeile 11130 - 11190) 

Die Parameter »low« und »high«ge- 
ben die Datensatz(= Record)num- 
mer an. Da ein Byte maximal den 
Wert 255 annehmen kann, die Re- 
cordnummer aber höher sein darf, 
muß sie aufgeteilt werden in ein 
Low-Byte und ein High-Byte. Das ge- 
schieht einfach mit den Änweisun- 
gen 


HB=INT(RN/256) 
LB=RN-HB*256 

RN = Recordnummer 

HB = Höherwertiges Byte 
LB = Niederwertiges Byte 

Der letzte Parameter (Byte) posi- 
tioniert auf eine bestimmte Stelle in- 
nerhalb eines Records. Beispiel: 
PRINT # 15,"P" + CHRS$(2)+ CHR$(12) 
+ CHR$(1)+CHR$(8) 

Hier wird auf das 8. Byte des 268. 
Records positioniert. Die 268 ist die 
Recordnummer und wird aufgeteilt 
in ein Low-Byte(l2) und ein High- 
Byte(l). (HighByte*256 + Low-By- 
te=Recordnummer). Beim Schrei- 
ben eines Records muß jedoch im- 
mer auf das erste Byte positioniert 
werden. 

Zum Schluß wird die Datei frei- 
gegeben. 


1.d) Freigeben der Datei 
PRINT # 15,CHRS$(255) 

Diese Anweisung bewirkt, daß 
alle Records, die unter der ange- 
gebenen Recordnummer liegen, 
mit CHR$(255) beschrieben wer- 
den, sofern sie noch nicht anders 
belegt wurden. Das dauert seine 
Zeit. Je mehr Datensätze eingerich- 


EN SIR -TA 


&r1d ; 

7000 REM ------- == 
7010 RE VERKETTEN DER FELD JER _ 
ZOZBTREM ame 
730 x 

7040 EL+=" u 
7950 BESSER IE SB, ISTLEN NYSE) } 


7: 970 RÜ+= REF+SREH+LER % $ (BL$, 
7080 RCEF=SRCHHPLFH+LEFTF(BL®, 4 
7990 REF=SRCFHOTFILEFTFEBL$ ,15-LEN (OT 
7100 RE$S=RCS+TE$S+LEFT$ (BL$, „LI 2-LCENTTEF 
7110 RETURN 

7120 : 

8000 REM -—-- Pe 
8010 REM SPEICHERN DAT EN AUF DISK 
5020 Be) Kar 


>40 PRINT# 15, 
(HB) +CHRE AL) 
8050 PRINT# 1,RCH$ 
3950 RETURN 


20= -LEN (SRE)) 
-LEN(FL$)) 
)) 
})} 


"PI+CHRE (ZI HCHREF(LB) HCHRE 
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7010 REM LESEN DA TENSA 'z 
7929| REN 
7020 F=QO 

7040 FRINT# 15,"F":+CHRE (2) FCHREF{LB) +CHRE 
(HBI +CHRE (1) 

7050 INFUT# 15,ER:REM FEHLERKEANAL 

9060 IF ERZ>5G’THEN 9110: REM RECORD NOT 


FRESENT-ERRÜR 

7070 FRINT "ii DATENSATZNUMMER ZU HOCH’ 

N FRINT. :PRINT " DRUECKEN SIE EINE TA 
GET Rf:IF Rt="" THEN 9090 


DT 
’ RUN 
INFUT# RC 
IF A THEN F145 
REM DATENSATZ I5T NICH FREI 
> RETURN 
11oc0 REM 
11510 REM 
i1lGZO REM 
110530 PRINT u(, 


VON D 1 SE. 


- NEUE DATEI ANLEGEN 


ACH i T UNG , E I NE BESTEHENDE 
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GET RE: IF Rs="" THEN 11070 
$>"W" THEN RETURN 


:PRINT "BITTE WARTEN" 
1IS:OPEN 15,98, "SYADR.REL" 
1:DPEN ee REL,„L,"+CH 


"WIEVIELE DATENSAETZE SOLL D 
TEL“ 


FRINT "VERWALTIENT "5 

INFUT RN 

HE=INT (RN/ 256) 

LB=RN-HB*256 

FRINT :FRINT "BITTE WARTEN" 

FRINI # 15, "Ft HCHRFIZIHCHRFILBI HCHR 


INFUT# 15,ER:REM FEHLERKANAL 
= IF ER{:52 THEN 11250: REM DAT 
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PRINT D 
FRINT :PRINT 


GET Rt: IF Rs="" 


ATEI 


ZU GROSS" 
DRUECKEN SIE EINE T 


THEN 11270 


FRINT# 1,CHR# (255) 
ELEBSE TEELOSE 15 


PRINT "fu" 


PRINT 
FRINT " 


INFUT RN 


HB=INT (RN/ZS56) 


LB=RN-HBE#*256 
15100 RETURN 


RERDY. 


tet (freigegeben) werden, desto 
mehr Zeit beansprucht diese Ar- 
beit. Aber erst diese Prozedur er- 
laubt ein fehlerfreies Lesen und 
schnelles Schreiben von Datensät- 
zen. Wollen Sie einen Record be- 
schreiben, der oberhalb des zuletzt 
freigegebenen Records liegt, so 
werden automatisch alle Records, 
die zwischen dem letzten und dem 
gerade beschriebenen Record lie- 
gen, freigegeben, das heißt, mit 
CHR$(255) beschrieben. Um diese 
Prozedur zu vermeiden, sollten Sie 
nur das erste Mal, beim Einrichten 
der Datei, die maximal zu erwar- 
tende Anzahl Records freigeben. 


Die Fehlermeldung »RECORD 
NOT PRESENT«, die dann im 
Floppy-Fehlerkanal erscheint, 


kann ignoriert werden, da dieser 
Record nur beschrieben (freigege- 
ben) wird. 


2. Speichern (Schreiben) eines Datensatzes 

Zum Speichern eines Datensatzes 
sind folgende Funktionen durchzu- 
führen: 

2.3) Eingabe der Recordnummer und Auf- 
teilung in Low- und High-Byte (siehe 
oben). 

2.b) Eingabe der Daten (zum Beispiel 
über Input). Hier wird auch sicher- 
gestellt, daß die einzelnen Felder 
nicht länger werden, als vorher ge- 
plant wurde. 

2.c) maximale Datensatzlänge bilden. 

Das wird im Beispiel (siehe Li- 
sting)in Zeile 7000 bis 7999 durchge- 
führt. Es wird ein String mit der ma- 
ximalen Länge (im Beispiel 81) gebil- 
det. Dazu wird vorher eine Variable 
(im Listing BL$) definiert, mit der An- 
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zahl Leerstellen, die das längste 
Feld unseres Datensatzes besitzt (im 
Beispiel das Feld »STRASSE« mit 20 
Zeichen, also enthält BL$ 20 Leer- 
stellen). Jedes Feld unseres Daten- 
satzes wird entsprechend seiner 
vorher festgelegten Länge und ab- 
hängig von der wirklichen Länge 
bei der Eingabe mit den notwendi- 
gen Leerstellen aufgefüllt. Im Bei- 
spiel hat die Variable RC$ dann die 
Länge von 81 Zeichen und sie enthält 
den vollständigen Datensatz. 


2.d) Speichern 

Das Speichern dieses Datensat- 
zes ist dann schnell geschehen: Es 
wird auf die vorher (in 2.a) angege- 
bene Recordnummer positioniert 
und danach mit PRINT#1,RC$ ge- 
speichert. 

Mit PRINT # kann man jedoch nur 
Datensätze abspeichern, die nicht 
länger als 88 Zeichen sind. Sonst 
muß man die Daten Zeichen für Zei- 
chen mittels einer GET# -Schleife 
schreiben und lesen. 


3. Lesen eines Datensatzes 

Hier erfolgt die Reihenfolge fast 
umgekehrt wie beim Schreiben. Zu- 
erst muß jedoch auch hier die Num- 
mer des gesuchten Datensatzes ein- 
gegeben werden. Nach entspre- 
chender Aufteilung in Low- und 
High-Byte wird aufden Record posi- 
tioniert und anschließend mit 
INPUT#]1, RC$ von der Disk gele- 
sen. 


3.a) Eingabe Recordnummer und Auftei- 
lung in Low- und High-Byte. 


3.b) Lesen des Datensatzes 


3.c) Aufteilen des Datensatzes 

Dieser Vorgang muß umgekehrt 
dem Verketten (2.c) geschehen. Es 
wird ja lediglich der komplette Da- 
tensatz in die Variable RC$ gele- 
sen. In Zeile 5000 bis 5999 werden 
wieder die einzelnen Felder gebil- 
det. Danach fehlt nur noch die 


3.d) Anzeige des Datensatzes 

Das wars auch schon. Wenn Sie 
sich einmal alles gut durch den 
Kopf gehen lassen und die Proble- 
matik am Beispiel durchgehen und 
ausprobieren, können Sie in Zu- 
kunft Ihre eigene relative Datei 
programmieren. 

Es ist gar nicht so schwierig, wie 
es auf den ersten Blick aussehen 
mag. Sie können auch Teile dieses 
Programms in Ihre eigenen einbau- 
en. Schließlich ist das der Vorteil ei- 
nes strukturierten Programmab- 
laufs. 

Zum Schluß möchte ich Sie noch 
auf einige Besonderheiten im Li- 
sting hinweisen. 

Zeile 11110: Löschen einer even- 
tuell bestehenden relativen Datei. 

Zeile 11200-11220: Lesen des 
Fehlerkanals. Wenn der Fehler 52 
gemeldet wird, bedeutet dies, daß 
die Anzahl Datensätze, die Sie an- 
gegeben haben, die Speicherkapa- 
zität der Diskette sprengen würde. 
Der Fehler 50 (RECORD NOT PRE- 
SENT, siehe auch Zeile 9050) be- 
deutet, daß Sie einen Datensatz 
lesen wollen, der nicht freigege- 
ben wurde Beim Schreiben 
braucht diese Fehlermeldung nicht 
beachtet werden (siehe 1.d). 

Zeile 3060: Wenn ein gelesener 
Datensatz den Wert CHR$(255) be- 
sitzt, wird davon ausgegangen, daß 
er noch nicht beschrieben wurde. 
Deshalb wäre es auch sinnlos, Ihn 
anzeigen zu wollen. Dieser Ver- 
gleich wird in Zeile 9120-9130 noch- 
einmal in anderer Form 
durchgeführt, kann dort jedoch 
weggelassen werden. 

Zeile 1170: Wenn das Programm 
beendet werden soll, muß der zur 
Positionierung notwendige Kanal 
15 wieder geschlossen werden. 

Anzumerken ist noch, daß nicht 
mehr als eine relative Datei gleich- 
zeitig geöffnet werden kann. Es ist 
lediglich möglich, noch eine zusätz- 
liche sequentielle Datei zur glei- 
chen Zeit zu nutzen. Und diese 
Möglichkeit erlaubt uns, auch kom- 
fortablere Suchkriterien als über 
die Recordnummer einzusetzen. 
Doch darüber mehr in der über- 
nächsten Ausgabe des 64’er Maga- 
zins. (ak) 
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pierkorb und eine Digitaluhr sind 
ebenso vorhanden. Von diesen Ge- 






genständen kann man mit Magic 
Desk jedoch nurSchreibmaschine, 


Papierkorb, Digitaluhr sowie die 
drei Karteikästen benutzen. Die an- 
deren Utensilien sind für spätere 
Magic Desk — Versionen vor- 
gesehen. 

Ebenfalls auf dem Bildschirm er- 
scheint eine Hand mit ausgestreck- 
tem Zeigefinger. Diese Hand kann 
mit dem Joystick beliebig über den 
Bildschirm bewegt werden. Umeine 
Funktion zu aktivieren, positioniert 
man die Hand so, daß der ausge- 
streckte Zeigefinger auf das ent- 
sprechende Gerät deutet und 
drückt den Feuerknopf am Joystick. 
Das ausgewählte Gerät erscheint 
daraufhin weiß eingerahmt und das 
Schirmbild wechselt in den meisten 
Fällen. Nun kann man weitere Unter- 
funktionen aufrufen, indemmanden 
Handzeiger auf andere grafisch 
dargestellte Gegenstände deuten 
läßt oder die Tastatur benutzt. Das 
Arbeiten gestaltet sich so sehr kom- 
fortabelund übersichtlich, ohne daß 
man sich darum zu kümmern hat, 
welche Schritte der Computer ma- 

















„, Bidsymbols können 


chen muß, um eine Aufgabe zu er- 
ledigen. 
Briefeschreiben 
leichtgemacht 





Nehmen wir zum Beispiel das 
Briefeschreiben mit anschließen- 
der Archivierung einer Kopie. Mit 
Magic Desk geht das mindestens 
genauso problemlos wie an einem 
realen Schreibtisch. Mittels Joystick 
läßt man den Handzeiger auf die auf 
dem Bildschirm abgebildete 
Schreibmaschine fahren und drückt 
den Feuerknopf. Sofort wechselt das 
Schirmbild und zeigt im unteren 
Drittel die grafischen Darstellungen 
von fünf Objekten; Schreibtisch, Ta- 
bulatoren (der Schreibmaschine), 
die Schreibmaschine selbst, 
Drucker und Papierkorb, 

Die Schreibmaschine ist weiß um- 
rahmt und der bekannte Handzei- 
ger deutet darauf. Solange der 
weiße Rahmen um die Schreibma- 
schine existiert, läßt sich der Hand- 
zeiger nicht bewegen. Dafür kann 
man nun die Schreibmaschine be- 
nutzen, deren Wagen ungefähr in 
der Bildschirmmitte sehr realistisch 
dargestellt ist (Bild 2). Die Computer- 
tastatur wird nun als normale 






Schreibmaschinentastatur mit Groß- 
und Kleinschreibung benutzt. DieSi- 
mulation einer Schreibmaschine ist 
nahezu perfekt. Der Wagen rückt 
mitjedem Anschlageine Stellenach 
links, wobei maximal 80 Zeichen in 
einer Zeile möglich sind, von denen 
aber immer nur 40 Zeichen im Bild 
sind (horizontales Scrolling). 

Einige Stellen vor Erreichen des 
Zeilenendes ertönt eine Warnklin- 
gel, bei Betätigen der RETURN- 
Taste wird ein Wagenrücklauf mit- 
tels Grafik und entsprechendem 
Geräusch simuliert. Mit den Funk- 
tionstasten F5 und F7 können Tabu- 
latoren gesetzt oder gelöscht 
werden, mit F3 erfolgt ein schneller 
Wagenvorlauf auf die nächste Tabu- 
latorposition. Mittels Joystick oder 
Cursortasten kann man sich auf dem 
a stellten Papierbogen in alle 
vier Richtungen bewegen und mit 
der DEL-Taste beliebige Textberei- 
che löschen. 

Vorsicht ist geboten beim Umgang 
mit der DEL- und der SPACE-Taste. 
DEL löscht das Zeichen, auf das die 
Maschine gerade positioniertistund 
hinterläßt einen Freiraum, zieht den 
Text also anders als beim normalen 
Basic-Betrieb nicht zusammen. Die 
SPACE-Taste wirkt dagegen genau- 
so wieein»Cursor rechts», verändert 
also keine Zeichen. Das ist beim 
Überschreiben von Textstellen des 





SD NN 





MAG DR 


öfteren sehr störend, da uner- 
wünschte Zeichen explizit mit DEL 
gelöscht werden müssen. 

Bis auf das Überschreiben von 
Texten und das Löschen von Zei- 
chen gibt es keine weiteren Editier- 
möglichkeiten, insbesondere ist es 
unmöglich, zusätzlichen Text einzu- 
fügen oder Textstellen zu kürzen. 
Diese fehlenden Editiermöglichkei- 
ten sind sicherlich ein Schwach- 
punkt des Programms, auch wenn 
man berücksichtigt, daß Magic 
Desk kein hochspezialisierter Text- 
editor ist und auch keiner sein soll. 


Druckerausgabe auf 
Knopfdruck 


Doch nun weiter in unserem Bei- 
spiel ! Hat man den Text fertig ge- 
schrieben oder ist man am Ende 
einer Seite angelangt (jede Seite hat 
66 Zeilen), dann kann man den Text 
auf dem Drucker ausgeben 
und/oder in einem der drei Kartei- 
kästen archivieren. Das Aus- 
drucken einer Seite gestaltet sich 
dabei denkbar einfach: Man drückt 
den Feuerknopf am Joystick, worauf 
die weiße Umrandung um das 
Schreibmaschinensymbol Ver- 
schwindet. Nun lenkt man den 
Handzeiger etwas nach rechts, so 
daß er auf die kleine Abbildung ei- 
nes Druckers zeigt. Nun nochmals 
den Feuerknopf betätigen und 
schon bekommt das Druckersymbol 
einen weißen Rahmen und der 
Druckerrattertlosunddrucktden — 
symbolisch gesprochen — in die 
Schreibmaschine eingespannten 
Bogen aus. 

Eine Kopie gefällig? Einmal Feu- 
erknopf drücken — Drucker aus, 
wieder Feuerknopf drücken — die 
Textseite wird nochmals ausge- 
druckt. Das läßt sich beliebig fort- 
setzen, denn die Textseite in der 
Schreibmaschine bleibt solange er- 
halten, bisman sie entwederineiner 
Kartei ablegt oder sie in den Papier- 
korb wirft. 

Letzteres ist genauso einfach wie 
das Ausdrucken. Mit dem Joystick 
den Handzeiger aufdas Papierkorb- 
symbol setzen, Feuerknopf betäti- 
gen und die Textseite erscheint 
verkleinert über dem Papierkorb. 
Falls man es sich anders überlegt 
hat, kann man jetzt einfach ein ande- 
res Objektsymbol ansteuern, die 
Textseite landet dann wieder in der 
Schreibmaschine. Drückt man aller- 
dings ein zweites Mal den Feuer- 
knopf, dann wandert die Textseite — 
mit einer an »Space Invader« erin- 


nernden Geräuschuntermalung — 
in den Papierkorb und ist damit end- 
gültig verloren. 


Die Floppy ersetzt 
den Karteikasten 


Alle mit der Schreibmaschine er- 
zeugten Textblätter können jedoch 
auch in einer Kartei archiviert wer- 
den. Die Kartei wird vom Hauptme- 
nü — also von der Bildschirmdar- 
stellung des gesamten Schreib- 
tisches her — angewählt. Zur Verfü- 
gung stehen drei Karteikästen. Je- 
der dieser Karteikästen enthältzehn 
gelbe Indexkarten, deren oberer 
Rand beliebig beschriftet werden 
kann und die mit dem Joystick in na- 
türlicher Weise durchgeblättert 
werden können (Bild 3). Zujeder gel- 
ben Indexkarte wiederum gehören 
zehn weiße Textkarten, die ebenso 
wie die gelben Indexkarten be- 
schriftet und durchgeblättert 
werden. 

Das Ablegen einer mit der 
Schreibmaschine erstellten Textsei- 
te geschieht nun sehr einfach und 
genauso wieineinerrealen (Papier-) 
Kartei. Zunächst wird einer der drei 
Karteikästen angewählt. Auf dem 
Bildschirm erscheinen nun die zehn 
gelben Indexkarten, die man biszur 
gewünschten Karte durchblättert 
und eventuell mit einem Stichwort 
beschriftet. Mit dem Joystick wer- 
den die zur Indexkarte gehörigen 
weißen Textkarten auf den Bild- 
schirm gebracht und bis zur ge- 
wünschten Stelle durchgeblättert. 
Nun den Feuerknopf drücken und 
die kleine Abbildung einer Diskette 
anwählen — und schon wird der 
Text aus der Schreibmaschine an 
der ausgewählten Stelle in der Kar- 
tei abgelegt. 

Um sich einen Textbogen aus der 
Kartei anzusehen, geht man wie zu- 
vor beschrieben zur gewünschten 
Stelle in der Kartei, wähltaber dann 
statt des Diskettensymbols einen 
kleinen weißen Zettel an. Das ent- 
sprechende Karteiblatt wird da- 
durchin großformatiger Darstellung 
auf den Schirm gebracht und kann 
eingesehen oder auch in die 
Schreibmaschine eingespannt 
werden. 

Dasowohl die gelben Indexkarten 
alsauch die weißen Karteikarten be- 
liebig beschriftet werden können, 
bietet sich das System für Adressen- 
listen, Inhaltsverzeichnisse, Termin- 
planungen oder ähnliche Änwen- 
dungen geradezu an. 

Eine Diskette kann den Inhalt drei- 











er Karteikästen speicher; das sind 
immerhin 300 Textbögen, die aller- 
dingsnichtalle vollständig beschrie- 
ben sein dürfen. Durch Verwen- 
dung mehrerer Disketten kann das 
Speichervermögen der Kartei prak- 
tisch beliebig gesteigert werden. 

Beider praktischen ArbeitmitMa- 
gic Desk machten sich die doch 
recht langen Disketten-Zugriffszei- 
ten unangenehm bemerkbar: 

Zwischen fünfund zehn Sekunden 
zum Anwählen eines Karteikastens 
(nur der reine Diskettenzugriff!) ist 
noch akzeptabel, aber eine runde 
Minute zum Abspeichern eines 
Fünf-ZeilenTextes zerrt mitunter 
schon sehr an den Nerven des Be- 
nutzers. Allerdings sind diese lan- 
gen Zugriffszeiten in erster Linie 
wohl auf den seriellen Datentrans- 
port zwischen dem GC 64 und dem 
verwendetem 154l-Laufwerk zu- 
rückzuführen. 


Magic Desk gibt 
Hilfestellung 


Ein Glanzpunkt des Magic Desk 
wurde bisher noch nicht erwähnt: 
Wenn man sich über die Funktion ei- 
nes Gegenstandes im unklaren ist 
oder sich sonstwie nicht zu helfen 
weiß, genügt ein Druck auf die 
»Commodore«Taste desC 64 umein 
Hilfsmenü aufzurufen. Jenach ange- 
wählter Funktion erscheintdabeiein 
anderes Hilfsmenü, das eine Anzahl 
von Gegenständen auf den Schirm 
zeichnet, mit denen es der Benutzer 
gerade zu tun haben könnte (Bild 4). 

In der schon bekannten Art und 
Weise kann mannuneinedieser Ab- 
bildungen mit dem Joystick ansteu- 
eın und erhält dann nähere 
Informationen überden Umgangmit 
dem entsprechenden Gegenstand. 
Durch Ansteuerung eines Schildes 
mit:der Aufschrift »EXIT« gelangt 
man wieder zur gerade aktuellen 
Funktion zurück. 

Insgesamt betrachtet ist das Är- 
beiten mitdem Magic Desk rechter- 
freulich, alle Funktionen lassen sich 
per Joystickleichtund sicher ausfüh- 
ren. Die Einarbeitungszeit ist we- 
sentlich kürzer als bei entsprechen- 
den konventionellen Programmen. 

Wer von Magic Deskallerdingsei- 
nen ausgefeilten Texteditor oder ein 
komfortables Datenbanksystem er- 
wartet, der wird einigermaßen ent- 
täuscht sein. Magic Desk ist weder 
daseinenoch dasandereundsolles 
auch garnichtsein. Esisthaltnurein 
Schreibtisch — allderdingseinermit 
recht magischen Zügen. (ev) 
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ngenommen Sie möchten mit 

Ihrem C 64 ein komplettes Da- 

tenverwaltungssystem einrich- 
ten, Wie gehen Sie vor? Program- 
mieren Sie selbst, vielleicht in Ba- 
sic? Oder kaufen Sie sich ein 
fertiges Programm? Beide Möglich- 
keiten haben ihre Vor- und Nach- 
teile. Es gibt aber noch eine diritte 
Möglichkeit. Sie benutzen einen 
Programmgenerator. 

Ein Programmgenerator ist ein 

Programm, das nach Ihren Anga- 
ben ein Programm erstellt. Dabei 
müssen Sie selbst kaum program- 
mieren können. Sie geben nur ein 
sehr allgemeines Ablaufschema 
des zu erstellenden Programmes 
ein. Das von Ihnen eingegebene 
Schema wird nun Schritt für Schritt 
verfeinert. Nach Ablauf der Gene- 
rierung steht das erzeugte Pro- 
gramm unabhängig von dem 
Programmgenerator zu Ihrer Ver- 
fügung. 
Das gut lesbare Handbuch hat 
das Format eines Taschenbuches. 
Die Einarbeitunggszeit ist recht kurz, 
und für einfache Problemlösungen 
benötigen Sie nicht einmal Basic- 
Kenntnisse. 

Dieser Programmgenerator ist 
menüorientiert, was bedeutet, daß 
mit baumartig organisierten Bild- 
schirmmasken alle Möglichkeiten 
zur Auswahl angeboten werden 
und Sie Ihre Auswahl nur in Form 
einer Zahl eingeben brauchen. 
Diese Dialogform ist recht fehlersi- 
cher und hat den Vorteil, daß Sie 
nach wenigen Stunden kaum noch 
in das Handbuch sehen müssen. 

Die Menütechnik wird überall voll 
unterstützt, so daß auch das zu er- 
stellende Programm auf diese Wei- 
se mit fehlersicheren Eingaberouti- 
nen ausgestattet werden kann. 

Die Generierung eines Program- 
mes erfolgt in zwei Schritten. Zuerst 
geben Sie einen Ablaufplan ein. In 
einer Frage- Äntwortsitzung müssen 
Sie dann alle Detailfragen, die der 


Programmgenerator noch benötigt, 
beantworten. 

Der Ablaufplan ist eines der weni- 
gen Dinge, die Sie vorab selbst pla- 
nen müssen. Ein Äblaufplan im Sin- 
ne vom Basic Bär ist eine logische 
Aufeinanderfolge von Ärbeitsschrit- 
ten, die Sie benötigen, um Ihr ge- 
plantes Programm zu verwirklichen. 
Der Programmgenerator nutzt die 
Tatsache, daß die einzelnen Verar- 
beitungsschritte in den meisten Pro- 
grammenähnlich sind. Die Ausgabe 
einer Bildschirmmaske und das an- 
schließende Einlesen von Daten ist 
ein solcher Ärbeitsschritt. Soll zum 
Beispiel in eine Datei mit dem Na- 
men »Telefonliste« eingelesen wer- 
den, so wird dies mit folgendem Be- 
fehl umschrieben: 

KEYBORD INPUT USING TELE- 
FONLISTE FIELDS 

Wenn Sie im Programm eine Ab- 
frage einbauen, und abhängig da- 
von an eine bestimmte Stelle im Ab- 
laufplan verzweigen wollen, müssen 
Sie etwa folgendes schreiben: 

ASK USER »FERTIG %: BRANCH 
IF YESTOLINEX 

Wie die Bildschirmmaske und die 
Dateiüberhaupt aufgebaut sein soll, 
und welche Datenfelder denn ein- 
gelesen werden sollen, wird wie die 
Sprungadresse erst in der Codege- 
nerierung abgefragt. 


Das generierte Basic- 
Programm 


Wenn der Ablaufplan vollständig 
eingegeben worden ist, wird Zeile 
um Zeile der Basic-Code generiert. 
Das Floppy-Laufwerk kommt dabei 
kaum zur Ruhe. In dieser Phase be- 
antworten Sie die Fragen nach dem 
Aufbau von Bildschirmmasken, 
nach dem Druckbild von Listen, 
nach Sortierkriterien oder nach den 
Sprungzielen bei Verzweigungen. 
Den Aufbau von Bildschirmmasken, 
Listen und den Ablaufplan können 
Sie abspeichern, um später auf die- 
se wieder zurückgreifen zu können. 


Anschließend werden Ihre ge- 
samten Angaben in Basic übersetzt, 
ähnlich wie ein Makroassembler 
Makroanweisungen in Maschinen- 
sprache übersetzt. 

Ein so erzeugtes Programm ist 
nicht sehr übersichtlich. Will man 
später Änderungen vornehmen, 
muß man sehr viel Zeit aufwenden, 
um sich in dem Programm zurecht 
zu finden. Wie zu erwarten war, ist 
ein mit Basic Bär erstelltes Pro- 
gramm erheblich länger als ein 
selbst erstelltes. Der Unterschied 
wird aber erheblich geringer, je 
komplexer die Anforderungen an 
das Programm sind. Das Zeitverhal- 
ten ist für ein Basic-Programm recht 
gut. Jedem ernsthaften Anwender 
sei allerdings ein Basic-Compiler 
empfohlen, um so das generierte 
Programm zu beschleunigen. 


Dateibearbeitung und 
andere Funktionen 


Alle Routinen zur Dateibearbei- 
tungsindin Basic Bär festeingebaut. 
Sie arbeiten allerdingsnurmitrelati- 
ven Dateien. Wer also eine andere 
Dateiform wünscht, muß die Routi- 
nen wie Dateiöffnen, Satzlesen, Posi- 
tionieren auf einen bestimmten Satz 
oder Satzschreiben selbst program- 
mieren. Dies ist jedoch ohne weite- 
res möglich, da innerhalb des Pro- 
grammgenerators auch sämtliche 
Basic-Befehle zugänglich sind. Sehr 
positiv ist zu erwähnen, daß mit ei- 
nem SORT-Kommando gearbeitet 
werden kann, mit dem nach bis zu 
drei Schlüsseln sortiert wird. 

Durch eine automatische Ausrich- 
tung und Überprüfung von numeri- 
schen Feldern in den Bildschirm- 
masken und einer automatischen 
Dokumentation der gesamten Ein- 
gaben beider Generierung werden 
die von Basic Bär erstellten Pro- 
gramme sehr fehlersicher und war- 
tungsfreundlich. 

Basic Bär gehört in die Klasse der 
guten und durchdachten Dienstpro- 
gramme. Der Preis von 425 Mark 
wird den Anwenderkreis sicherlich 
einschränken. Äber trotzdem ist die- 
ser Programmgenerator für jene in- 
teressant, die sowohl mit dem auf- 
wendigen Selbstprogrammieren als 
auch mit den starren Programmen 
aus der Dose unzufrieden sind. (rg) 
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Die Programmiersprache Forth ist für immer mehr Mikrocomputer erhältlich, und das 
| nicht ohne Grund. Forth ist eine sehr mächtige Sprache, die in einem 
gewissen Sinne die positiven Seiten 

von Basic, Pascal und 
Assembler in sich vereint. Für 
den Commodore 64 ist jetzt 
eine der leistungsfähigsten 
Forth-Versionen als Steckmodul 
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ei dieser Forth-Version für den 
| u C 64 handelt es sich um ein im 
Sprachumfangstark erweitertes 
| FIG-Forth. Die Abkürzung FIG steht 
© dabei für Forth Interest Group und 
bezeichnet eine unabhängige Grup- 
| pe von Forth-Enthusiasten, die sich 
© die Standardisierung und Verbrei- 
| tung von Forth zum Ziel gesetzt hat. 
| | Beieiner Sprache wie Forth, die vom 
Anwender praktisch beliebigerwei- 
© terbar und veränderbar ist, er- 
| scheint ein solcher Standard auch 
| dringend notwendig, weil sonst der 
| Softwareaustausch zwischen den 
E Anwendern fast unmöglich würde. 
| Das 64 Forth hält sich sehr eng an 
| den FIG-Standard, was dem Benut- 
| zer unmittelbar zugute kommt: Die 
meisten für andere Computer ent- 
wickelten Forth-Programme sind, 
solange nicht spezielle Hardware- 
Eigenschaften ausgenutzt werden, 
mit minimalen Änderungen sofort 
auf dem C 64 lauffähig. 

Forth zeichnet sich ja generell 
schon durch einen großen Befehls- 
vorrat aus. Im 64 Forth wurde jedoch 
© der Grundwortschatz des FIG-Stan- 
© dards nochmals stark erweitert. 
| Über 500 Befehle stehen zur Verfü- 
| gung. Damit man hier noch den 
| Überblick behält, sind diese Befeh- 
le auf vier Vokabulare aufgeteilt: 
| FORTH, EDITOR, SYSTEM und AS- 


nn. 
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Bild 1. Das 64 Forth enthält einen leistungsfähigen Decompiler 


SEMBLER. Ein Vokabular wird ein- 
fach durch Angabe seines Namens 
aufgerufen oder aktiviert. 

Zu Anfang ist nur das normale 
ForthVokabular zugänglich. Will 
man längere Forth-Programme oder 
Texte eingeben, dann ruft man ein- 
fach das Editor-Vokabular auf und 
kann nun alle vorhandenen Befehle 
zum Editieren von Texten nutzen. 
Das System-Vokabular enthält Be- 
fehle zum Zugriff auf die Betriebssy- 
stemebene. 

Obwohl Forth-Programme in der 
Regel um Größenordnungen 
schneller als Basic-Programme lau- 
fen, können doch ab und zu zeitkriti- 
sche Situationen eintreten. In die- 
sem Fall ruft man das Assembler- 
Vokabular auf und hat sofort einen 
6502-Macro-Assembler zur Verfü- 
gung. 

Schon bei einem ersten Blick ins 
Inhaltsverzeichnis des (leider nur 
englischen) Handbuchs fällt es auf: 
Das 64 Forth verfügt in Addition zum 
FIG-Forth-Standard über eine ganze 
Reihe von Befehlen, um spezielle 
C 64 — Eigenschaften zu unterstüt- 


zen. 

Mit BGROUND und BORDER wer- 
den zum Beispiel die Hintergrund- 
und die Rahmenfarbe gewählt. Mit 
NEWSPRITE kann man innerhalb ei- 
ner Bildschirmmaske sehr komforta- 


erhältlich: Das 64 Forth 


von Human Engineered Software. 


Bild 2. Das 64 Forth ist 
als Steckmodul für den € 64 und den 
VC 20 erhältlich Y 


ed 





bel neue Sprites entwerfen. Sprite- 
daten können in spezielle Sprite- 
Dateien geschrieben oder daraus 
gelesen werden. Mit dem Befehl 
SHOW werden Sprites sichtbar ge- 
macht, mit HIDE verschwinden sie 
wieder vom Bildschirm. Mit weite- 
ren Befehlen kann man Sprites über 
den Bildschirm bewegen, einfärben 
und vergrößern. Natürlich ist auch 
der Mehrfarbenmodus möglich. 
Wer sich schon einmal mit den di- 
versen POKE-Befehlen in Basic ab- 
gemüht hat, um ein paar Sprites 
über den Bildschirm zu bewegen, 
der wird diese Möglichkeiten des 
64 Forth sehr zu schätzen wissen. 
Ganz ähnlich verhält es sich auch 
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bei den Toneffekten: Wo man in Ba- 
sic viele Zeilen mit POKE-Befehlen 
braucht, um ein paar Noten zu spie- 
len, geht das mit 64 Forth im Klartext 
und wesentlich übersichtlicher. Der 
Befehl VOICEI wählt zum Beispiel 
den Tongenerator | an, mit TRIAN- 
GLE, SAWTOOTH, SQUARE oder 
NOISE wird die Wellenform ausge- 
wählt. Weitere Befehle steuern Fre- 
quenz, Hüllkurve, Lautstärke und 
andere Faktoren. Insgesamt gibt es 
40 (!) Befehle zur Steuerung des 
Synthezisers. 

Auch die Ansteuerung externer 
Geräte macht mit 64 Forth keine 
Schwierigkeiten. Im SYSTEM-Voka- 
bular gibt es diverse Befehle zur Da- 
tenkommunikation mit Drucker, 
Floppy oder Kassette. Der Befehl 
PRON ersetzt beispielsweise die 
Basic-Befehlsfolge »OPEN 1,4:CMD 
l«. Um Befehle an die Floppy zu 
schicken, braucht nicht umständlich 
ein Kommandokanal eröffnet wer- 
den, sondern es reicht der CMD- 
Befehl. Um zum Beispiel eine Disket- 
te zu formatieren, schreibt man in 64 
Forth: CMD N:Name ID 

Außerdem können die meisten 
Kernal-Routinen des Betriebssy- 
stems einfach mit ihrem Namen auf- 
gerufen werden, wodurch sich eine 
hohe Flexibilität beim Datenaus- 
tausch über den seriellen Bus er- 
gibt. 

Bemerkenswert sind die recht 
komfortablen Testhilfen, die 64 Forth 
zur Verfügung stellt. Mit den Befeh- 
len TRACE, STEP EMULATE und 
CONT kann die Ausführung von 
Forth-Befehlen überwacht werden. 
Zusätzlich ist ein Decompiler vor- 
handen, der mit SOURCE aufgeru- 
fen wird und compilierte Forth- 
Worte wieder zurückübersetzen 
kann (Bild 1). Derartig umfangreiche 
Debug-Funktionen sucht man bei 
anderen Forth-Compilern in der Re- 
gel vergeblich. 

Im Gegensatz zu der recht einfa- 
chen Speicherverwaltung von Basic 
benutzt Forth das Konzept des vir- 
tuellen Speichers. Vereinfacht ge- 
sagt bedeutet das die Aufteilung 
des verfügbaren Speichers in klei- 
ne Abschnitte, sogenannte Screens 
oder Textfelder, auf die über eine 
Nummer zugegriffen wird. Dabei ist 
es nicht nötig, daß sich alle Screens 
zur gleichen Zeit im Hauptspeicher 


befinden. Die meisten Screens sind 
daher als relative Datei auf einer 
Diskette angelegt und werden nur 
bei Bedarf geladen. 

64 Forth bietet dabei noch die Be- 
sonderheit, daß eine solche virtuel- 
le Speicherverwaltung auch ohne 
Floppy ermöglicht wird. Die einzel- 
nen Textfelder werden dabei in der 
Reihenfolge ihrer Numerierung mit 
der Datasette wie normale Program- 
me aufgezeichnet. Ein Pufferspei- 
cher von 16 Textfeldern imRAM, be- 
grenzt die Anzahl der nötigen Kas- 
settenoperationen. 

Jedes Textfeld kann nun für sich 
mit dem Texteditor bearbeitet wer- 
den. Beifast allen Forth-Versionen ist 
zu diesem Zweck nur ein einfacher 
zeilenorientierter Editor vorhanden. 
64 Forth stellt seine Kompatibilität 
dadurch unter Beweis, daß es eben- 
falls über einen solchen umständ- 
lich zu bedienenden Zeileneditor 
verfügt, der ganz normal mit n EDIT 
aufgerufen wird, wobei n die Num- 
mer des zu editierenden Textfeldes 
ist. 


Der Full-Screen-Editor 





Daneben aber gibt es in 64 Forth 
auch einen »Full-Screen-Editor«, wie 
er vom Basic her bekannt ist. Man 
drückt im Edit-Modus die Tasten- 
kombination »Shift« und »INST/DEL«, 
und eserscheint augenblicklich das 
gesamte zu editierende Textfeld. 
Wie von Basic her gewohnt, kann 
man nun mit Hilfe der Cursourtasten 
über den gesamten Bildschirm fah- 
ren und fehlerhafte Textstellen 1ö- 
schen oder einfach überschreiben. 

Die Funktionstasten sind dabeimit 
diversen hilfreichen Funktionen be- 
legt, zum Beispiel Vorwärts- und 
Rückwärtstabulator und Suchfunk- 
tionen. Auf Tastendruck kann manin 
das vorhergehende oder nachlol- 
gende Textfeld wechseln. 

Als weitere Besonderheit versteht 
der Editor eine Reihe von »Word- 
star«-kompatiblen Control-Funk- 
tionen. Statt mit der »CTRL«Taste 
werden diese Funktionen jedoch 
durch gleichzeitiges Drücken der 
»Commodore«Taste und eines 
Buchstabens ausgelöst. Wer also an 
das Arbeiten mit »Wordstar« ge- 


wöhnt ist, wird sich mit diesem Edi- 
tor ebenfalls gut zurechtfinden. 

Ganz hartgesottene Forth-Pro- 
grammierer, denen soviel Bedie- 
nungskomfort schon dekadent er- 
scheint, haben ja noch die Möglich- 
keit, stattdessen mit dem zeilen- 
orientierten Editor zu arbeiten. 

Das zu magere Handbuch ist in 
Englisch geschrieben, eine deut- 
sche Übersetzung ist zur Zeit nicht 

eplant. 

Auf 155 kleinformatigen Seiten 
wird eine kurze Einführung in Forth 
gegeben, die aber dem Änfänger 
vermutlich nicht allzuviel sagen 
wird. In kurzen Kapiteln werden 
dann der Texteditor und die wichtig- 
sten Forth-Befehle erläutert. Es fol- 
gen Abschnitte über die Speicher- 
belegung von Forth, über die VO- 
Organisation und über den inte- 
grierten 6502-Macro-Assembler. Li- 
stings einer Anzahl von Forth-Utilitys 
und eine Kurzbeschreibung aller 
Befehle runden das Handbuch ab. 

Durchweg alle Kapitel sind aber 
recht kurz und knapp ausgefallen, 

so daß man häufig gezwungen ist, 
entwederin anderen Büchern nach- 
zuschlagen oder einfach herumzu- 
experimentieren. Immerhin, man 
findet die wichtigsten Informatio- 
nen. Dennoch wäre ein deutsches, 
etwas ausführlicheres Handbuch si- 
cherlich wünschenswert. 

Insgesamt gesehen ist das 64 
Forth sicherlich eine der besten 
Forth-Versionen, die derzeit über- 
haupt für Mikrocomputer erhältlich 
sind. Deutliche Pluspunkte sind der 
hervorragende Editor und der um- 
fangreiche Befehlssatz, insbesonde- 
re die vielen Befehle fürSpritegrafik 
und Sounderzeugung, die man im 
Commodore-Basic manchmal 
schmerzlich vermißt. Der integrier- 
te Assembler ist eine wertvolle Hilfe 
bei der Lösung zeitkritischer Pro- 
bleme. 

Das 64 Forth kann in Deutschland 
als Steckmodul (Bild 2) für den C 64 
über »Die Forth-Quelle« in 7820 
Titisee-Neustadt zum Preis von 198 
Mark bezogen werden. Eine Ver- 
sion für den VC 20 ist ebenfalls er- 
hältlich. Leider ist das Modul nach 
Auskunft der Anbieter auf dem trag- 
baren SX 64 aufgrund doch vorhan- 
dener geringer Hardwareunter- 
schiede nicht lauffähig. (ev) 
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Wer auf seinem 
Heimcomputer 
sein Reaktions- 
vermögen te- 
sten will, dem 
sei Lode Run- 
ner empfohlen, 
ein Spiel mit 
150 (!) ver- 
schiedenen 
Spielfeldern. 


R:: Arcade-Spiel-Freunden ist 
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er sicherlich bekannt...Zaxxon. 

Der gefährliche Kampfroboter 
treibt nun schon seit Anfang '84 sein 
Unwesen auf dem Home-Computer- 
Markt. Allerdings hörtmanschonei- 
nige Seufzer...ist der Riesenhit doch 
kleiner als man erwartet hatte? Nun, 
zur Handlung: Man fliegt mit einem 
Raumkreuzer über einen Asteroi- 
dengürtel, versucht möglichst viel 
»Feindliches« abzuschießen und 


steht dann nach einigen Prüfungen 
vor »Zaxxon«, einem gefährlichen 
Kampfroboter. 


Dieser erscheint 





Die erste Schwierigkeitsstufe von »Lode Runner« 





Actionspiel aber dennoch kein 

Schießspiel und wird für Apple 

II, II+ und Ile, Atari 400/800/XL, 

VC 20, Commodore 64 sowie IBM 
PC angeboten. 

»Du bist ein gut trainierter Com- 


D: Spiel Lode Runner ist ein 


mander im unendlichen Welt- 
raum...« — so verheißungsvoll be- 
ginnt die Spielanleitung (natürlich in 
Englisch abgefaßt). Man muß auch 
wirklich gut trainiert sein, um alle 
150 Spielfelder zu durchlaufen. Ich 
selbst habe allein sechs Stunden be- 
nötigt, um bis zum siebten Spielfeld 
vorzudringen. Man hat die Möglich- 
keit, sich ganze 255 eigene Spielfel- 
der zu erstellen und diese auf Kas- 
sette oder Diskette abzuspeichern. 


zwar nur kurz, trotzdem muß man 
sich mit ihm ein heißes Gefecht lie- 
fern. Nach dieser Konfrontation be- 
ginnt alles wieder von vorne. — Nur 
etwas schwerer. Die starke pseudo- 
3D-Grafik wertet das Spiel zwar auf, 
jedoch hilft selbst die beste Grafik 
nicht, über Schwächen hinwegzu- 
täuschen, die nach einigen Spielen 
deutlich werden: So wird es dem 
Spieler leicht langweilig, wenn er 5 
bis 6 mal immer wieder dieselbe 
Szene überfliegt und sich nichts än- 
dert, außer dem Schwierigkeits- 
grad. Generell ist zu sagen, daß“ 


Zaxxon: 
Eine 
typische 
Spielszene 


Dies ist mit dem im Spiel integrier- 
ten Game Generator möglich. Der 
Generator ist sehr einfach zu bedie- 
nen. Obwohl die Bedienung sehr 
einfach ist, wäre es angebracht, in 
der Spielanleitung zu erwähnen wie 
man den Game Generator startet. 
Ich wollte die Suche nach dem Ge- 
nerator schon aufgeben, als ich zu- 
fällig nach dem Start des Spieles die 
»E«Taste drückte und sogleich mein 
eigenes Spielfeld entwerfen konnte. 

Doch nun noch einmal zum Spiel 
selbst. 

Der Spieler muß in jedem Feld al- 
le Goldklumpen sammeln. Doch 
das Einsammeln der Punkte in dem 
Labyrinth aus Mauern, Leitern und 
Stangen ist nicht so einfach, da man 
hierbei von einigen Feinden verfolgt 
wird. So braucht man schon einiges 
Geschick und Reaktionsvermögen, 
um alle Goldklumpen zu sammeln 
und nicht gefangen zu werden. 

Die grafischen und musikalischen 
Fähigkeiten des VC 20 werden nicht 
gerade voll ausgeschöpft. Der Spie- 
ler bewegt sich zwar fließend aber 
die Verfolger »hüpfen« nur ruckartig 
von Kästchen zu Kästchen. 

Fazit: 

Wer Abwechslung und Spannung 
liebt, dem sei dieses Spiel empfoh- 
len, da wegen der großen Varia- 
tionsberichte und der Möglichkeit, 
selbst kreativ zu werden, die Spiel- 
motivation bestimmt nicht nachläßt. 

(Christian Spitzner) 





die Erwartungen der Käuferzu hoch 
gesteckt waren und b) daß Zaxxon 
diese hohen Ansprüche nicht erfül- 
len kann — und das schon gar nicht 
auf Dauer! Alles in allem, Zaxxon ist 
nicht das, wasmansohört, wird aber 
sicher bei den Weltraumabenteu- 
ern einen gehobenen Rang einneh- 
men, den er sich trotz alledem ver- 
dient hat. (Oliver v. Quadt) 
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nossen gehören, denen das 


und Ihren Commodore 64. 


er Flight-Simulator II von Sublo- 
D gie im Vertrieb der Lucius 

Computer-Programme (190 
Mark) stellt ohne Übertreibung alle 
bekannten Flug-Programme in den 
Schatten. 

Das Fluggerät ist eine Piper Pa 
28-181 Archer II. Ihre Instrumente 
und Flugeigenschaften werden täu- 
schend echt simuliert. Über 80 Flug- 
häfen kann der Computer-Pilot in 
denUSA ansteuern. Einriesiges Ter- 
rain, das nur die wenigsten überflie- 
gen werden. Die relativ realistische 
Abbildung des Geländes ist allein 
schon ein Genuß für das Auge. 

Nun zum Fluggeschehen. Je nach 
Können und vor allem Mut ist es 
möglich, zwischen drei verschiede- 
nen Schwierigkeitsgraden zu wäh- 
len: Dem »realistic«, dem »easy« und 
dem»slew«Modus. Die höchsten Än- 
sprüche an die Fähigkeiten des Pilo- 
ten stellt der Realflug. Hier ist vom 
Starten des Motors über den Kampf 
mit den verschiedensten Handicaps 
und Defekten bis zum sensiblen 
Flugverhalten alles vorhan- 
den. Inden vollen Ge- 


Fliegen nur auf dem Passa 
flugzeugs vergönnt ist, dann gi 















iersitz eines Linien- 


nuß der Landschaft und der Flug- 
umgebung kommt man am besten 
durch Anwählen des »slew« Modus. 
Das Flugzeug fliegt dann wie ein 
Hubschrauber. 

Zu Beginn der fliegerischen Lauf- 
bahn ist es sinnvoll, der ausgezeich- 
neten (noch englischen) Anleitung 
zu folgen. Dadurch erspart man sich 
so machen unfreiwilligen »Crash«. 

Der Horizont und die Landschafts- 
merkmale bewegen sich beim Flie- 
gen naturgetreu, entsprechend der 
jeweiligen Flugposition über den 
Bildschirm. Aber Vorsicht; nicht die 
Instrumente vergessen! Schnell 
kann es geschehen, daß man über- 
steuert oder zu niedrig fliegt. 

Starten möchte ich in New York. 
Dazu sind die Koordinaten des Ab- 
flugortes im Editmodus einzugeben; 
in diesem Fall ist das 17070/20990. 
Nach kurzen Diskettenmanövern, 
die leider im ganzen Spiel immer 
wieder notwendig werden, er- 
scheint New York auf dem Bild- 
schirm. Vorsichtig die Geschwindig- 
keit erhöhen, leicht nach oben zie- 
hen, sanft eine Rechtskurve einlei- 
ten, nur nicht übersteuern und 
immer den Höhenmesser im 
Auge behalten — ein Kom- 

mando folgt auf das näch- 
ste, Vor mir erscheint das 
World Trade Center 
mit seinen beiden 
Türmen. Der Aben- 
teurer in mir wird 
wach. Etwas tiefer 
noch, und da sind 
sie auch schon, im- 
mer größer und be- 
drohlicher werdend. 
Als ich zwischen den 
Türmendurchfliege, wage 
ich einen Blick nach unten 
und was ich sehe läßt meinen Ätem 
stocken; Ich bin zu tief! Dies waren 


t es etwas Neues für Sie 








meine letzten Gedanken. Als ich 
»aufwachte«, stand nur noch »crash« 
auf dem Bildschirm. 

Nichtunerwähnt sollauch das aus- 
wählbare Actionspiel im Flight II 
bleiben. Nicht etwa, daß Flight II oh- 
ne das Luftkampfspiel »World War I 
Ace« kein vollständiges Programm 
wäre. Im Gegenteil, beide Program- 
me könnten auch separat verkauft 
werden. Die Aufgabe des Piloten 
besteht beim »World War I Ace« dar- 
in, feindliche Stellungen, Depots 
und Fabriken zu beschießen. Das 
Flugzeug ist dazu mit Maschinenka- 
nonen und Bomben bewaffnet. Da- 
mit der Angriff realistischer wird, 
wehrt sich der Feind mit sechs äu- 
ßerst aufdringlichen Jagdfliegern. 
Diese sind nur durch waghalsige 
Flugmanöver und intensiven Einsatz 
der Bordkanone abzuschütteln. 

Es ist unbestreitbar, auch dieses 
Spiel begeistert, mich persönlich 
mehr durch die gelungene Grafik 
und Animation, als durch die Spiel- 
idee. Wer aber gerne als »Richtho- 
fen« durch die Lüfte jagen möchte, 
wird sicher einige seiner bisherigen 
»Actionspiele« zumindest vorläufig 
beiseitelegen. 

Insgesamt, wobei der Flugsimula- 
tor der wichtigere Teil ist, kenne ich 
kein Programm, das den Flight Il in 
bezug auf Spielmotivation, Grafik, 
Beeinflußbarkeit der Handlung und 
Abwechslungsreichtum erreichen 
könnte. Am besten gefällt mir aber, 
daß mit Flight II ein Unterhaltungs- 
programm geschaffen wurde, das 
sicher nichtnur die jüngere Genera- 
tion begeistert. (Arnd Wängler) 













Programmverwaltung 











Das Programm für den 
Commodore 64 mit Disket- 
tenlaufwerk und Epson- 
Drucker RX-80 mit Data- 
Becker Interface (simuliert 
einen Commodore-Drucker 
auf dem RX-80) erlaubt die 
Verwaltung der auf Diskette 
gespeicherten Programme. 
Man legt nur eine Diskette 
ein, dann lädt der Computer 
das Inhaltsverzeichnis der 
Diskette und druckt es auf 
dem Bildschirm aus. Nun 
tippt man nur noch »J« für Ja 
oder »N« für Nein ein, ob der 
Computer den Programmna- 
men in seine Liste aufneh- 
men soll oder nicht. Danach 
gibt man ein, unter welcher 
Kategorie das Programm 
eingeordnel werden soll. 
Zur Auswahl stehen allge- 
meine, Spiel-- Hilfs- und 
Sprachprogramme, 

Im Menü kann man zwi- 
schen dem alphabetischen 
Sortieren der Liste, Spei- 
chernderListe und dem Auf- 
listen und Löschen von Pro- 
grammen wählen. Beim al- 
phabetischen Sortieren wer- 
den zunächst alle Namen, 
die zweimal gespeichert 
sind, gelöscht. Dann wird die 


Liste nach ASCII-Wertigkeit 
geordnet. Das Abspeichern 
der Liste erfolgt in eine se- 
auentielle. Datei. Auf ein 
»Random-File« wurde ver- 
zichtet, da sonst das Pro- 
gramm um einiges länger 
und langsamer geworden 
wäre. Bei »Programme 1ö- 
schen« kann man Programm- 
files löschen und umbenen- 
nen. Willman umbenennen, 
so gibt man zuerst denalten, 
noch gespeicherten Namen, 
dann den neuen Namen des 
Programmes ein. 

Beim Auflisten von Files 
kann man die Programme 
entweder auf dem Bild- 
schirm oder dem Drucker 
ausgeben. Dabei kann man 
alle oder nur einzelne Krite- 
rien auflisten. R 

Zur besseren Übersicht 
und zum schöneren Ausse- 
hen werden die Farben Rot, 
Gelb, Blau, Schwarz und 
Weiß benutzt. Diese werden 
in Control-Strings abgespei- 
chert, da sonst das Pro- 
grammlisting sehr unüber- 
sichtlich und beim Eintippen 
schwierig zu lesen wäre. 

(Michael Börner) 









77 GOTDO10000 

100 GETA$: IFAF=""THEN10O 

110 RETURN 

150 GETA$: IFAFT >CHR$ (13) THEN1S5O 

1&0 RETURN 

400 PRINTCK#$ 

410 SYSAU,11,10,WWE"-ISKETTE EINLEGEN" 
420 SYSAU,15,14,"DANN "ANFRE"<_T| „_/?":R 
EM <RETURN> 

4530 GDOSUB1S0 

440 RETURN 

500 PRINTCK$ 

505 SYSAU,S,7,5F"-ISKETTE MIT /AMENLISTE 
EINLEGEN" 

510 SYSAU,12,14, "DANN 
:REM <RETURN> 

515 G60SUB100: IFAF< >CHR$ (15) THENS15 

517 RETURN 

700 PRINTCGE 

710 SYSAU,7,10,AN$R£"KEINE NAMEN GESPEIC 
HERTATE® 

720 GOSUB100:60T01000 


TANSBLENT ZT] 2" 





1000 REM" f S Listing 
1001 REM" IMENUE | »Software- 
1002 REM" Sal E Katalog« 


1010 FRINTCKECHR# (B) 

1020 FRINTMB$ 

1050 SYSAU,17,8,6#"\NENUE" 
1055 SYSAU,17,9," - 





1040 SYSAU,6,12,WWE"1. „NHALTSVERZEICHNI 
5 LESEN..." 

1045 SYSAU,6,14,"2. #4LPHABETISCH SORTIER 
EN....*" 


1050 SYSAU,6,16,"3. "TROGRAMMLISTE SAVEN. 


1080 SYSAU,6,18,"4. "TROGRAMME LOESCHEN. . 


Inmmaha 7A 104 


1070 SYSAU,6,20,"5. "TROGRAMME LISTEN.... 
1100 GOSUB100 

1110 IFA$<>"1"ANDAS< >"Z"ANDAS<>"3Z"ANDAF< 
>"A"ANDASF<>"S"THEN1100 

1120 A=VAL (A$) :0NAGOTO3000,3600,2500,700 


0,5000 

2000 REM" Pam age 23 BEE rer EEE EEE 
2001 REM" IDATEN AUS DATEI LESEN| 
2002 REM" KL 00 


2010 GDSUB500 

2020 CLOSE2:OPEN2,8,2, "NAMENLISTE,S,R" 
2030 INPUT#2,FD 

2040 IFPO=0THEN2100 

2050 FORN=1TOFO-1 

2060 INPUT#2,WR#E (N) 


2070 NEXTN 

2080 CLOSE2:G60T01000 

2100 REM" r m garen 
2101 REM" INEUE DATEI ERDEFFNEN!| 
2102 REM" \ B 





2110 SYSAU,9,20,AN$R$"/EUE —ATEI ERDEFFN 
EN ?" 

2120 G0SUB100: IFA$< >" J"ANDAS< >"N"THEN212 
oO 

2130 IFA$="N"THENGSOTO2000 

2140 PO=1:CLOSE2 

2150 OPEN2,8,2,"S:NAMENLISTE,S,W" 

2160 PRINT#2,FO 

2170 CLOSE2 

2200 60T01000 

2500 REM" | s 

2501 REM" INAMEN ABSAVEN | 

2502 REM" a nn 
2505 IFFO<2THENSOTO700 

2510 GOSUBSO00 

2520 OPEN2,8,2,"S:NAMENLISTE,S,W" 
25350 PRINT#2,FO 

2540 FORN=1TOPO-1 

2550 PRINT#2,WR$ (N) 

2560 NEXT 

2570 CLOSE2:60T01000 

3000 REM" m — 
3001 REM" | INHALTSVERZEICHNIS LADEN! 
3002 REM" \ 
3005 R=0 

3010 GOSUB400 
3015 FRINTEGS 
3020 SYSAU,3,3,6$"EINLESEN DES INHALTSVE 
RZEICHNISSES": PRINT:FR=FD 

3025 CLOSE1S:0PEN15,8,15,"10":CLOSE2:OFE 
N2,8,0,"€" 

3030 FORT=0T012:GET#2,A#,B#:NEXT 

3035 BET#2,A$,A$: IFSTTHENCLOSE2: GOTOS120 
3040 GET#2,AF,AF 

3050 BET#2,A$: IFA$=""THENZ035 

3060 IFA$<>CCFTHENZOSO 

3070 C$="":R=R+1:C$(R)=""PERI=""FL=0 
3080 FORT=0T016:GET#2,A$: IFA$< >CCSANDFL= 
OTHENC& (R)=C$ (R)+AF:NEXT:GOTOS100 

3090 FL=1:NEXT 

3100 IFINT (R/2)=R/2THENPRINT:PRINTSSCH(R 
-1) TAB(20)C$(R); 

3105 PRINTTAB(ZTIP&(R)G$z 

3110 GET#2,AF,FF(R) :GOTOS050 

3111 REM" ; — 
3112 REM" INAMEN IN DATEI UEBERNEHME 
N ?| 

3113 REM" 
3120 FRINTCG$:FRINTG$"UEBERNEHMEN ?" 
3121 IFR=OTHEN1000 

3125 FORT=1TORSTEP2:FRINT:PRINTCE&(T) TAB 
ITIPSCTITAB(ZO)CKLT+1); 














3130 PRINTTAB(37)P$(T+1);:NEXT:FOKE198,0 
3135 R2=1 

3150 FORT=1TOR:P=T*20+55396: FORTT=0T017 
3160 POKEP+TT,O:NEXT 

3170 GOSUB100 

3180 IFA$<>"N"ANDAS<>"I"THENZ170 

3190 IFA$="J"THENWR$(PO)=" "+C$(T):PO=FO 
+1:F1=1:60T03300 

3200 IFA$="N"THENF1=12:60T03300 

3300 FORTT=0T018:POKEP+TT,Fi:NEXT:NEXT 
3400 REM" a — 

3401 REM" WELCHE SPIELART ?| 

3402 REM" e 

3403 IFPO=PRTHEN1000 

3405 PRINTCG$ 

3408 SYSAU,1,1,AN$RE"G"AUFGF"AME/ "ANSRE" 
H"AUSGS" ILFSPRG/": 

3410 PRINTANSRE"S"AUFGE"PRACHFRG/ "ANSRE" 
A"AUFGS"LLGEMEIN" 

3412 PRINT:PRINT 

3415 FORN=PRTOFO-1 

3417 IFLEN(WR$ (N) ) >19YTHEN3425 

3420 W=LEN (URS (N) ) :FORM=WTO1B: URS (N) SUR$ 
(N)+" ":NEXTM 

3425 PRINTRIGHTS(WR$ (N) „LEN(WRE(N))-1); 
3430 GOSUB100: IFA$<>"G"ANDAF<>"A"ANDAFT> 
"S"ANDAS<>"H"THENZ43O 

3440 IFA$="G"THENPRINTTAB (20) "SPIEL 

3450 IFA$="A"THENPRINTTAB (20) "ALLGEMEIN 
3460 IFA$="S"THENPRINTTAB (20) "SPRACH 
3470 IFA$="H"THENPRINTTAB (20) "HILFE 

3480 B$=MID$ (WR$ (N) „2,LEN(WRE(N)) ) :AF=AF 
+B$:WR$ (N) =AS:NEXT 

3500 PRINT:FRINT:PRINTAN$RE"OK"AUS" ?" 
3510 G0SUB100: IFAFZ >" IJ"ANDAS<>"N"THENSS1 
o 

3520 IFA$="N"THENS400 

3525 G0T01000 
3600 REM" 
3601 REM" 
ELT| 

3602 REM" 
3603 PRINTCG$ 
53604 SYSAU,15,11,R#"BITTE WARTEN !" 

3605 IFPO=2THEN1000 

3610 FORN=1TOPO-1 

3620 FORM=1TOPO-1: IFM<>NTHENIFURS (N) =WR$ 
(M) THENGOTO3700 

3630 NEXTM: NEXTN: GDTO3800 

3700 FOR@=MTOFO-1 

3710 WR$(Q)=WRE(O+1) 

3720 NEXT@ 





IFILES LOESCHEN FALLS DOFP 











3730 FO=FO-1:WR$(POI="":WRF(FO+1)=""2GOT 
038530 

3800 REM" =, 
3801 REM" |\ALFHABETISCH SORTIEREN | 


3802 REM" \ - 
3805 FRINTCG# 

3810 SYSAU,13,11,R#"BITTE WARTEN !!" 
3820 FORD=1TOFO-2 

3830 AF=URF (0) : BF=WRF (O+1) 

3840 IFAF<BFTHENNEXT:GOTDOS700 

3850 WRE(DO+1)=At:WRE(D)=BE 

3860 NEXTO 

3900 FORN=1TOFO-2 

3910 IFWRE (N) <WRE (N+1) THENNEXT: GOTO1000 
3920 G60T03820 

5000 REM" ee arg TEE 

5001 REM" |PROGRAMME LISTEN! 

5002 REM" : . 

5005 IFFO<ZTHENGOSUB700 

5005 IFDRTHENCLOSEI 

5008 PRINTCK# 

5010 SYSAU,12,4,BL£""ROSRAMME I ISTEN" 
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5015 SYSAU,12,5," "G$ 
5020 SYSAU,10,7,"1. ALLE TROGRAMME..." 
5030 SYSAU,10,9,"2. NUR &LI=\. TRG..":R 


EM ALLGEM. FRG6 

5040 SYSAU,10,11,"3. NUR «L-#-RG....": 
REM HILFS-FRG 

5050 SYSAU,10,15,"4. NUR HT Tr... "2 
REM SPIELE 

5080 SYSAU,10,15,"5. NUR H14-|17/.....": 
REM SPRACHEN 


5070 SYSAU,11,17,"AUF "ANZSF"-"AUFGE"RUC 
KER: ";:REM DRUCKER 
5080 IFDRTHENFRINT" "BL#"JA " 
5085 IFNOTDRTHENFRINT" "BL#"NEIN" 
5090 SYSAU,10,20,R#"<_1 .„_/>"G#" ZUM "S 
£" SENUE"=SREM <RETURN?> „ MENUE 
5100 GOSUB100:E#=A#F 
S110 IFE£="1"DORE$="2"OREF="Z"OREF="4"ORE 
$=CHR& (13) DOREF="D"DOREF="S"THENS120 
5115 60T05100 
5120 IFE$=CHR$ (13) THENDR=0:CLOSE1:G0OTO1O 
00 
5130 IFE$="D"THENDR=NOTDR: SOTOSO0O 
5140 IFNOTDRTHENS200 
5150 CLOSE1:0PEN1,4,1:PRINT#1,CHRF (14); 
5180 FRINT#1," FROGRAMMLISTE COMMO 
DORE 64 
s170 CLOSE1:DPEN1,4 
5180 FRINT#1," 
5190 CMD1 
5200 IFEF="2"THENEF="A" 
5205 R=0 
5210 IFEF="3"THENEF="H" 
5220 IFE$="4"THENEF="G" 
5230 IFE$="S"THENEF="S" 
5240 IFE$<{>"1"THENSSOO 
5250 IFNOTDRTHENSSO0O 
5260 GOSUBSSOO 
S300 W=1: IFNOTDRTHENPRINTEGE 
5310 FORN=1TOFO-1 
5330 IFE$="1"THENS37O 
5340 IFEFZ>LEFTF(WRE(N) „13 THENNEXT: GOTOS 
450 
5370 GOSUBS900 
S380 IFINT(W/2Z)I=W/ZANDDRTHENPRINT 
5430 W=W+1 
5440 NEXT 
5450 IFW<>1THENGOSUB1OO 
5470 GOTDS000 
5750 RETURN 
5800 LO=INT ( (PO-1)/2): IFINT (LO/2)=L0O/2TH 
ENLO=LO+1 
S805 FORT=1T0O(FO-1)/2:N=T:W=N 
S810 SOSUB5SF00 
5815 N=N+LO:W=N 
5820 GOSUBSF0O 
5825 N=N-LO:W=N 
5855 NEXT 
5840 IFINT(FO/2)=FO/2THENN=N+1:W=W+1:60S 
UBS700 
S850 PRINT#1 
5860 DR=0: G0T05000 
59700 Z&=SLEFTFE(WRE(N) ,„1) 
5901 IFW<100THENFRINT" "; 
5702 IFW£1OTHENPRINT" "5; 
5905 WE=STRE(W) :FRINTGEWE") "TABC(SIRIGHTF 
(WRE&E(N) „LENCWRE(N))-1); 
5910 IFZ$="A"THENPRINTBLF"ALLG.-FRG. 
s 
5920 IFZ&="G"THENPRINTWWE"SFIEL 


3 
5930 IFZ$="H"THENPRINTRE"HILFS-FRG. a 





; 
5940 IFZ$="S"THENPRINTS$"SFRACH-FRG. + 


r7A a. kon 


5950 IFNOTDRTHENIFW/23=INT (W/23) ANDNOTDR 
THENSOSUB100: PRINTCG$; 

5965 IFNOTDRTHENPRINT 

5970 RETURN 

7000 REM" pn 

7001 REM" |PROGRAMME LOESCHEN | 

7002 REM" \ . 

7003 IFPO<ZTHENGOSUB700 

7004 PRINTCK$ 

7005 SYSAU,11,7,BL$"ROGRAMME LOESCHEN" 
7008 SYSAU,11,8," n 
7010 SYSAll,9,11,68"1. 








—ILES LIMBENENNEN. 


REM EILES 
7020 SYSAU,9,13,"2. -ILES: LOESEHEN. „u ." 
7040 SYSAU,11,16,R$"X_71 .„_/?"G#" ZUM "S$ 


"SENUE":REM <RETURN> ,MENUE 

7050 G0SUB100: IFA$< >" 1"ANDAS<>"2"ANDAS<> 
CHR& (15) THEN7050 

7060 IFA$=CHR$ (15) THEN1000 

7070 U$s=""ıNn$="" 

7080 A=VAL (A$) :ONAGOTO7100,7500 

7100 G60SUB7400 

7110 FRINT:U$="": INPUTUS: IFUF=" "THEN7000 
7120 IFLEN (U$) >16THEN7100 

7125 FORN=LEN (U$) TO17:U$=U$+" ":NEXT 
7130 GOSUB7400:SYSAU,14,10,S$U$6$ 

7140 GOSUB7450 

7150 N$="": INPUTN$: IFN$=""THEN7000 

7160 IFLEN({N$) >16THEN7130 

7170 GOSUB7400:SYSAU,14,10,5$U$:G0SUB745 
0:SYSAU,14,14,5$N$ 

7180 SYSAU,1,18,R#" OK 7" 

7190 FORN=LEN {N$) TO1T:ZNF=N$+" ":NEXT 
7200 :60SUB100: IFA$< >" J"ANDA$< >"N"THEN72 
00 

7210 IFA$="N"THEN7100 

7220 FORN=1TOFO-1 

7230 IFU$=RIGHTF (WRE(N) ‚LEN CWRE(NII-LITH 
ENWR$(NI=LEFTE CWRE (N) „1)+N$: G0OT07000 
7240 NEXT 

7250 PRINT:PRINT:PRINT" "U&" NICHT GESPE 
ICHERT !" 

7260 FORN=1T04000:NEXT 

7270 G0T07000 
7400 REM" m 
7201 REM" FILES UMBENENNEN | 

7402 REM" ln on 0 

7495 PRINTCGE 

7410 SYSAU,12,5,BL#"FILES UMBENENNEN: " 
7420 SYSAU,8,9,6*"ZU LOESCHENDES FROGRAM 
M: " 

7430 RETURN 

7450 SYSAU,8,13,6#"NEUER NAME DES PROGRA 
MMS: " 

7460 RETURN 
7500 REM" 

7501 REM" 

7502 REM" 

7510 PRINTCGS 
7520 G0SUB7800 
7530 N$="": INPUTN$: IFN$=""THEN7000 

7540 IFLEN (N$) >16THEN7S500 

7550 PRINTCG$ 

7554 60SUB7800:SYSAU,13,14,5$N# 

7556 SYSAU,2,18,R$"OK ?" 

7560 GOSUB100: IFA$< >" J"ANDAS< >"N"THEN7S6 
o 

7570 IFA$="N"THEN7500 

7575 FORN=LEN (N$) TO17:N$=N$+" ":NEXT 
7580 FORN=1TOPO-1: IFRIGHT$ (WR$ (N) „LEN (WR 
EN) I)-1I<PNFTHENNEXTN: GOTO7&00 

7590 FORT=NTOFO-1:WR$(T)=WR$(T+1L):NEXT:P 
O=PO-1:60T07000 


IFILES LOESCHEN| 


ui sim aan 


7600 PRINT:PRINT:PRINT" "N$" NICHT GESPE 


ICHERT !" 
7700 
7750 
iu 
7760 
7800 
7810 
7820 


FORN=1T04000: NEXT: G0T07000 
SYSAU,10,21,R$U£" NICHT GESPEICHERT 


FORN=1T04000: NEXT: 60T07000 
SYSAU,13,8,BL$£"FILES LOESCHEN" 
BYE ITS ST 
SYSAU,0,12,6$"WELCHES PROGRAMM SOLL 


GELOESCHT WERDEN ?"S$:PRINT 


7830 RETURN 
10000 REM" 
10001 REM" 
10002 REM" 
10010 MB$="ii 
TUNG " 
10020 
" 
10030 
ERNER 
10040 
WN; "E"=CTRL+735 


MB£=MB$+" 


MB£=MB$+"E 


——————— 


|INITIALISIERUNG | 
a a 


ETROGRAMM XERWAL 


er m ——— en 


BWIY NICHAEL ID 


6719 sEISENHEIM/ |ERG R 
REM"KI"=SHIFT+ELR-HOME; ""=CRSR-DO 
"g"=CTRL+1; 


"g"=CTRL+S3 


10050 DIMC$ (70) :DIMP$ (70) : CC$=CHR$ (54) :R 
EM VARIABLEN FUER INHALTSVERZEICHNIS 


10060 DIMWR#F (500) :REM 


E $ 


FROGRAMM-FIL 


10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
ARBE=GRAU 2 


10170 POKES3280,11:REM 


=GRAU 1 


10180 POKE650,128:REM 


UF ALLEN TASTEN 
10190 AU=49152:REM 
FUER HILFSROUTINE 


CG$="(i"+CHR$ (142) :REM CLEAR-GROSS 
CK$=""+CHR$& (14) :REM CLEAR-KLEIN 
R$&=CHR# (28) :REM 
G6+=CHR$ (158) :REM 
BL$=CHR$ (31) :REM 
S$=CHR$ (144) :REM 
WW£=CHR$ (5) :REM 
AN$#=CHRE (18) :REM 
AU$=CHR$ (146) :REM 
POKES3281,12:REM 


ROT# 

GELB 

BLAUSF 
SCHWARZ# 
WEISS# 
INVERS AN$ 
INVERS AUS# 
HINTERGRUNDF 


RAHMENFARBE 
AUTOREPEAT A 


STARTARESSE 


10200 FORN=AUTOAU+25:REM HILFSROUTINE 
10210 READWE:POKEN,WE:NEXT 

10220 DATA32,253,174,32,158,183,158 
10230 DATA72,32,253,174,32,158,185 
10240 DATA104,168,24,32,240,255,52 
10250 DATA253,174,76,164,170 


11111 G0T02000 
READY. 
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Die Alternative zum mühsamen Abtippen 


Alle Listings, die im 64 
Datenträgern. Zusätzli 

oder Maschinenprogramme eine neu 
Solche Programme werden künfti 


Viele Leser haben uns ge- 
fragt, ob die veröffentlichten 
Listings auch auf Datenträ- 
gern angeboten werden. Mit 
dem Leserservice kommen 
wir diesem Wunsch nach. Es 
werden, nach VC20und C64 
getrennt, jeweils allein einer 
64’er-Ausgabe enthaltenen 
Listings auf Kassette angebo- 
ten. 


Eine Diskettenversion die- 
ser Programme ist in Vorbe- 
reitung und wirdin einer der 
nächsten Ausgaben angebo- 
ten. Mit Erscheinen dieses 
Heftes sind die Kassetten mit 
den Programmen der Äus- 
gaben 4 und 5 des 64er- 
Magazins verfügbar. Diese 
Kassetten können mit der 
beigehefteten »Buchladen- 
Software-Bestellkarte unter 


folgenden Nummernbestellt 

werden. 

Ausgabe 4, 

C 64-Programme: CB 007 

Ausgabe 4, 

VC 20-Programme: VC 006 

Ausgabe 5, 

C 64-Programme: CB 008 

Ausgabe 5, 

CV 20-Programme: VC 007 
Diese Kassetten kosten pro 

Stück 29,90 Mark. Kassetten 

mit den Listings der Äusga- 

ben 6 und 7 werden ab Er- 

scheinen von Heft 8 angebo- 

ten. 


Der Extra-Service 


Oft erreichen die Redak- 
tion interessante Program- 
me, die leider zu lang sind, 
um sie im Heft als Listing zu 








veröffentlichen. Oder sie 
sind in Assembler geschrie- 
ben. Viele dieser Program- 
me brauchen den Vergleich 
mit teuren kommerziellen 
Produkten nicht zu scheuen. 

Solche Programme veröf- 
fentlichen wir zusätzlich zu 
unserem bisherigen Listing- 
angebot in einer neuen 
Form: Sie werden im Heft 
vorgestellt. Darin finden Sie 
die Programmbeschrei- 
bung, die Bedienungsanlei- 
tung, kurz alles, was Sie für 
eine komplette Dokumenta- 
tion benötigen. Das Pro- 
gramm selbst wird auf Kas- 
sette angeboten. Auch für 
diesen Service sind die Dis- 
kettenversionen in Vorberei- 
tung. Auf den folgenden 
Leserservice-Seiten finden 
Sie die ersten drei Program- 


’er-Magazin veröffentlicht werden, gibt es künftig auch auf 
ch bieten wir auch Autoren besonders langer Basic- 

e Möglichkeit an, ihre Arbeiten zu veröffentlichen. 
g ebenfalls über den Leserservice angeboten. 


me: ein Lernprogramm für 
russische Vokabeln, eine Su- 
perversion des Spiels »Spa- 
ce Invaders« und ein Pro- 
gramm, das einen Geldspie- 
lautomaten simuliert und 
über ausgezeichnete Grafik 
verfügt. 

Auch diese Programme 
sind über die »Buchladen- 
Software-Bestellkarte« er- 
hältlich. Die Bestellnummer 
ist jeweils am Ende der Do- 
kumentation aufgeführt. Der 
Preis für diese Programme 
beträgt 29,90 Mark. 

Die Preise für die 
Leserservice-Kassetten und 
-Disketten müssen die Ko- 
sten decken — wir sind aber 
bemüht, sie so niedrig zu hal- 
ten, daß der Leserservice 
auch wirklich ein Service ist. 

Ihre 64'er-Redaktion 
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Beim Erlernen einer Fremdsprache ist das Lernen von Vokabeln, Redewendungen 
und Satzkonstruktionen eine ziemlich unangenehme Aufgabe. 


in Computer miteinem Vos 

kabellernprogramm kan 
einem das Lernen selbst 
nicht abnehmen. Er kai 
aber ohne große Mühe an 
»elektronisches« Vokabel- 
heft führen, verwalten, aus- 
drucken, zum Äbfrageniver 
wenden, das Lernen dürch 
gezieltes Wiederholen noch 
nicht beherrschter Wortpaa- 
rungen verbessern /helfen 
und das Lernen durälfden 
Umgang mit dem Compüter 


interessanter erscheinen 
lassen. 
Viele Vokabellernpro- 


gramme wurden schönlver 
öffentlicht. Das imflölgenden 
vorgestellte Programm für 
den Commodordib4zumtber 
nen russischer VokaDelnhat 
jedoch die folgenden her- 
ausstechendenfMerkmäle: 
l. Erweiterungdes Zeichen- 
satzes auf Bildschrmetınd 
Drucker, um diekyzillischen 
Buchstaben Fdärstellen zu 
können 

2. ein hoher Bedlenungs 
komfort, denm,Auswahl, Eıin- 
gabe, Abfragen undi%so wei- 
ter erfolgen menü- bezie- 
hungsweise maskengesteu- 
ert. 

Für diejenigen, die ämder 
russischemßprache nicht ın- 
teressiertsind, kanndasPro- 
gramm Mielleicht als Anre® 
gung fdienenndenn viele 
Sprachenthaben jäyin ihrer 
Schrift Buchstaben; die nicht 
im normalen Zeichensatz 
der Computer enthaltensind 
(zum Beispiel Griechisch 
Französisch). 

Das Programm.Russische 
Vokabeln« kann maximal 
fünfzig Vokabeln im Spei- 
oher des Compütersauineh- 
men und zum Abiragen, 
Drucken, Ändern und so 
weiter verwenden. Eine Vo- 
kabel besteht "ausmfünf 
Blöcken: 


rn .kııa mn 


— Russisches Wort, even- 
fuell mit.grammatikalischen 
Erläuterungen, 

— deutsche,Ubersetzung 
(en), 

— Bemerkungen, 

— ein oder mehrere russi- 
Sche Satzbeispiele und 
—die deütsche Übersetzung 
der Satzbeispiele 

jeder der fünfBlöcke kann 
maximal arenzeilen mit ma- 
ximal 89 Zeichenifassen. Die 
Mindesteingabe ist eine rus- 
sısche@Vokabel mit deut- 
scher Übersetzung Da das 
Lernen von »nackten« Wort- 
paaren Später Oft zu einer 
fehlerhaften Anwendung 
des Wortes im Satz führt, ist 
e5 zweckmäßig, auch ein 
kleines Satzbeispiel mit 
Übersetzung zulernen. Dies 
ist mit der madiesem Pro- 
gräimm..vorhandenen Voka- 
belstruktur »möclich. Der 
Block »Bemerkungen« kann 
beließigelnformationen ent- 
halten»Sie werden beim Ab- 
fragen der Vokabeln immer 
angezeigt, ganz egal in wel- 
cher Richtung abgefragt 
Wird. Man kann hier zum Bei- 
spiel dieaWortart eingeben. 

Die maximal 50 Vokabeln 
im Speicher des Computers 
könnenanfeiner Diskette un- 
ter einer Nummer (zwischen 
0 und ?999) abgespeichert 
werden. Die Abspeicherung 
erfolgt alssequentielle Datei 
mit dem Namen »RUSS.VOK. 
onn« mit nnn als Dateinum- 
mer.am Ende der Eingabe 
beziehungsweise Änderung 
von Vokabeln. 

Das Programm läuft unter 
Simons Basic und folgender 
Hardware-Konfiguration: 
Commodore-64, Floppy 1541 
und Drucker 1525 oder Sei- 
kosha GP-100 VC. 

Nach dem Laden und Star- 
ten von Simons Basic kann 
das Programm geladen und 








Textfelder: E Er 
ß Druckzeichentabe 
N Speicher für Druckerausgabe 
2(0:2,0:4 0:MM) intemer Vokabelspeicher 
lder: 
nn = Nr. dernoch abzufrag. Vokabeln 
O.(NN-V) eng: 
1%(0:MM) star ob Vokabel aktiv (O=nein, 
_1=ja) 
Y%(0:39) gerade bearbeitete Zeile als ASCII 
' Array 
5 Antwort, Hilfszeichenkette, Dateiname 
7 peiLöschen 
Antwort, Hilfszeichenkette 
Sk 40 Leerzeichen 
BLS 1 Leerzeichen 
CL$ Bildschirm löschen 
Cursor 
a Dateiname RUSSVOR.XXX 
s$ Dateiname auf Datei 
= $ Fehlermeldung von Floppy 
Oo8 Anführungszeichen 
RIS RVSON 
m ei ne i ischen Vo- 
TRS Trennzeile im Ausdruck zwis 
kabeln 
XS aktuelle Zeile 
Er " BL anlöods Hauptmenü, ASCI-Code 
B ER Abfragerichtung 1=R-D, 
2=D-R 
Fehlernummer Floppy, Fehlerschalter 
Laufvariable, Hilfsvariable 5 
fd. Block: 0=Russisch, ie Deutsc ; 
” 2=Bemerkung, 3=Beispiel Russisch, 
4=Beispiel Deutsch 
S fd. Spalte innerhalb der Eingabezeile 
: (0..39) 
IV lfd. Vokabel ee 
„Bildschirmzelle 
n Hs Zeile innerhalb Block (0..2) 
F Laufvariable, Hüßvarlabl® 
iable, Hilfsvarıabie r 
=  nsall Vokabeln minus 1 (Dimen- 
ht noch nicht gewußte/geprüfte 
= Vokabeln en 
xterner 
r Sehne Vokabel im Bereich (0..NN-)) 3 
nn fd. Zeilennummer im Vokabelausdruc 


Variablen im Programm »RUSSVOK« 
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Haup -Teile: 




























10- 309 Verle 4 gestartet werden. Durch gen). Der Ausdruck ist auf 
En an des Bildschirm-Zeichensatzes Drücken irgendeiner Taste 72zeiliges Papier abge- 
»MEM« a an durch den Befehl gelangt manin das Auswahl- stimmt. 3 
chen für die Bil er kyzil. Schriftzei. menü. Nach Eingabe des Eingabe, Ändern, Ergänzen, Spei- 
„DESIGN, . o Idschirmanzeige durch Auswahlcodes (l bis 8, eine _chern, Ansehen von Vokabeln (5) 
den Drucker a a und für detaillierte Beschrei Beginn wird die erste 
410 tion im mr Zeichendefini- A erfolgt später) und D 
479 472 Initialisierung, Progrs (im FeldC$(0.255)) A von »RETURN« wird 
630 Anzeige des Auen ala reits Vokabeln im Sp 
640- 730 der Auswahl menüs, Eingabe des Computers sind, ge- 
Datei-Nr.-Eingabe, we fragt: »DATEI nnn IM SPEI- 
im Menü re der CHER, NEU (/N) % hungsweise"zU 
laden, won neu. Verzweig = Saga man die vorhandene nerhalb des 
805 - 844 wünschten Aktion. beln verwenden ers 
a sg) einer Vokabeldatei (Auswahl En on »J«, < 
5 - 1140 Ei »R RN«, ein. We 
Ingeben und Ändem ei kei V lb ei 
s iner Vokabel- eine Vokabeli eines 
1906 - 21ll Ang Answer) 5) : oder eingegebe& 3 
ee 3 n von Vokabeln (Auswahl 1,2 oder wenn man eine ande itefl). Wechsel 
2906 - 3030 Ausdrucken ei Vokabeldateiladenwi dennächstenoter vorher- 
ns n einer Vokabeldatei (Aus- wort »J«), wird@ene an | zum Beispiel 
v i sel von Russisch nach 
; Do 50 weiter) 
"10890 Datei von Diskette laden ni De 1): vorabei: 
ten Speich aden, nicht beleg- wird die Dat järts oder 
11010 - 11099 Anzeige en der Diskette ö 
ö Okabel-Eingabe-, > : } 
12020 - 12110 Ba ö = Kuphans: in den Speiche -f5); Vokabel- 
13000 - 13020 Va ehe mit derei vorwärts Br: ia = 
u > OO u 
14000 en Im Vokabelbild komplett mer vorh sich in einer Zeile 
en aufein Zeichen, das befindet, steht 
15000 - 15005 en gestellt wird A$ zur immer am Ende 
Seitenwechsel durch Le Seite voll: können im Ausw: L« man: Ten, 
Leerzeilen Infügen von acht nn = 


wählt werden: deutsche Einga- 
wie gewohnt (nur 
hstaben); die russi- 
Eingabe erfolgt gemäß 


igefügten Tabelle (die 












Beschreibung wichtiger Pro eilen und Unterprogramme 
im Programm »RUSSVOK« ä 


e Tastein) 
Buchstabe Tastecn) Buchelab Tastatur fehlenden 
A P P hen Zeichen sind 
R iftTaste einzugeben) 
6 shift B C c und das Beis h dem Eingeben be- 
z gezeigt, wobei in ngsweise Ändern 
B B T Blöcken der Zielsprache drückt man zum Abspei- 
R Y Fragezeichen erscheinen. chern der Vokabeln auf Dis- 
r Shift 6 Y Die Bemerkungen werden kette die Taste »f7«. Eine 
: ® shift F immer angezeigt. Man über- eventuell vorhandene Voka- 
A Shift D setzt nun die angezeigte Vo- beldateimit derselben Num- 
= % % kabel und das Beispiel (im mer wird dabei überschrie- 
E f Geist oder auf einem Stück ben. Soll keine Äbspeiche- 
2 shift 0 M Shift Z Papier) und drückt dann ir- rungerfolgen, so kommt man 
} - gendeine Taste. Daraufhin durch »f8 (= Shift-f7)« wieder 
x shift S 1 Shift wird die gesamte Vokabel in das Auswahlmenü. 
shift @ angezeigt. Man mußnunsei- Löschen einer Vokabeldatel (6) 
3 3 (drei)? u ne Übersetzung mit deran- Mit dieser Option kann 
3 u Shift * gezeigten vergleichen und man eine Vokabeldatei von 
H shift 1 entscheiden, ob die Vokabel der Diskette entfernen. 
e v Shift H gewußt (Eingabe »R«) oder Liste der Vokabeldateien 
a shift J nicht gewußt Fo) wurde. Au- anzeigen) 
K bl shift *  BßerdemistdasBeendendes Eswirdeine Liste aller Da- 
K Abfragens durch die Einga- teilen auf der Diskette ange- 
shift L b Shift H be »E« möglich. Das Abfra- zeigt, die »RUSSVOK.nnn« 
N . rR: gengehtzufallsmäßigsolan- heißen. 
M 3 Snift E, ge weiter, bisalle Vokabeln Programmende (8) ae 
M rel Loser Diese Option schließlich 
H H n Ausdruck der Vokabeln (4) I ee 
A Shift A Der gesamte Vokabelbe- De che Vokabeln« 
0 0 stand im Speicher wird aus- = He nn 
5 i ans Peter Postel) 
shift P gedruckt (links Russisch, Dieses Programm ist auf Kassette im Rah- 
n rechts Deutsch, sowiediemit nundesLeserservice (a8.75) unter der Be- 


Tabelle des russischen Alphabets und der Tastenbelegung auf dem Commodore 64 Stern markierten Bemerkun- _ stelinummer CB 0ll erhältlich. 
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1020-1130 
1150 
1170 





2560-2820 
ng30-3710 
3720-4140 


Dieses Programm 
wurde für 

alle diejenigen 
geschrieben, die 
sich auch einmal 
an einem Geld- 
spielautomaten 
versuchen wollen, 
ohne großes Kapital 
zu investieren. 


rown No, I simuliert den 

gleichnamigen Automa- 
ten in den Gasthäusern und 
Spielhallen. Durch Sprites 
und selbstdefinierte Zeichen 
wurde eine entsprechende 
Grafik erzielt. 

Wichtig!! Vor dem Einla- 
den muß der Speicher hoch- 
gePOKEd werden: 

POKE 44,64 : POKE 16384,0: 
NEW 
Technische Daten: 

Das Programm selber 
benötigt 15068 Byte im 
Speicher 
Die Dimensionierungen 
verbrauchten 811 Byte 
CrownNo. lenthält5Spri- 
tes 


oN -ıuUkR=Ta 


1450-1510 Den für G@ sten ibe 
1520-1700 Ausspielen 2 eiten heib 
1720-1840 Ausspielen Scheibe 
1850-1980 Ausspielen 5 Scheib ‚4 sein 
199020800  Töschen der I zo Pienmid 1. 
2200-2350 ital muß GrÖRT non des Kap 
2420-2430 Errechnen U a Anz 
9440-2550 sonderspiel® 
Bildschirme” 





Die _Maschinenroutine 
liegt bei Adresse 49152 
Es wurden 79 Zeichen 
umadefiniert. 


Spielanleitung 


Crown No. 1 fragt Sie nach 
dem Start, wieviel Kapital Sie 
investieren möchten. Sie 
können bis zu 30 Mark ein- 
setzen. Danach müssen sie 
eine Weile warten, die Zei- 
chen werden umdefiniert. 

Sinn des Spiels ist es, drei 
gleiche Symbole in den fünf 
Fenstern zu bekommen. Ist 
dies erreicht, so gibt es meh- 
rere Möglichkeiten. Drei 
Kronen ergeben Sonder- 
spiele Bei Sonderspielen 
wird jeder Gewinn auf drei 
Mark erhöht, jedes goldene 
Feld in der Mitte wird als Ge- 
winn (drei Mark) gewertet. 
Die Anzahl derSonderspiele 
wird durch Drücken einer 
Taste bei laufender Auswahl 
bestimmt. Alles wird optisch 
dargestellt. Bei leuchten- 
dem Starter kann die Aus- 
wahl während einer be- 
stimmten Zeit nachgestartet 
werden. Der Starter erlischt 
dann. Wenn dreimal der 
gleiche Geldbetrag in den 
Fenstern erscheint, dann ist 





der Gewinn gleich dem an- 
gegebenen Wert. Die Krone 
im mittleren Fenster gilt als 
Joker für jeden Betrag. Eine 
Krone allein gewinnt 30 Pfen- 


g 


nig. Jeder Gewinn kann 
durch Drücken der Risikota- 
ste (eine beliebige Taste) 
verdoppelt oder genullt wer- 
den. Dies wird optisch an 
den äußeren beiden Leitern 
dargestellt. 

Zwei gleiche Wappen er- 
höhen die dazugehörige Ge- 
winnstufe um eins. Es kön- 
nen bei jeder Risikoleiter 
höchstfalls zwei Gewinnstu- 
fen zustandekommen. Eine 
Gewinnstufe verdoppelt ei- 
nen Gewinn auf der Risiko- 
leiter automatisch. Bei drei 
gleichen Wappen wird der 
Starter eingeschaltet. Sie 
können die erste Scheibe 
nachstarten, wenn das Wort 
»Start«leuchtet. Beileuchten- 
dem »Stop« können alle 






















Scheiben gestoppt werden. 


Kapital und Sonderspiele 
werden in den oberen Fen- 
stern angezeiat.(C. Vigelius) 
Bestellnummer CB009 


IL 


Das Programm 
ist so konstruiert, 
daß selbst ein 
unerfahrener 
Computerbesitzer 
Variationen des 
Spielablaufs durch 
einfaches Ändern 
der Variablen 
vornehmen kann. 


iese Space-Invader- 
Version ist den gleichna- 
migen Telespielen nach- 
empfunden, und zeichnet 
sich durch die Möglichkeit, 
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leicht anpaßbar zu sein, aus. 

Außerdem sind natürlich 
jede Menge Extras, zum Bei- 
spiel sichtbeeinflussende 
Wolken, ein intelligenter Au- 
ßerirdischer und ein UFO, 
das Alien aussetzt, vorhan- 
den. 

Nach dem Kampf erwartet 
der Spieler dann eine 




































Highscore-Tabelle. Das Pro- 
gramm läuft auf dem Com- 
modore 84. 

Nachdem das Programm 
mit »RUN« gestartet wurde, 
springt der Basic-Interpreter 
nach Zeile 250, wo er die Ma- 
schinenprogramme einliest, 
und den Zeichengenerator 
in das Basic-RÄM verlegt. 
Hierzu muß gesagt werden, 
daß man nach dem ersten 
»RUN« keine Veränderungen 


Eventuell Invaders bewegen, Joy- 
stickabfrage und so weiter. Kommt 
zurück, wenn entweder keine Inva- 
ders mehr vorhanden sind oder wenn 
die Basis vernichtet ist. 


SYS 29995 


Wie oben, jedoch ohne lnitialisie- 


rung am Änfang (kein Reset des 
Punktstandes etc.) 


SYS 31000 


Farbe setzen. 


Obere Hälfte Türkis, untere Hälfe Rot. 


SYS 33131 
SYS 33024, S, Z, A$ 
SYS 33050, X, Z, C 


Aufruf der Highscore-Tabelle 
Druckt A$ ab Spalte S der Zeile Z aus 
Zieht auf dem Bildschirm eine vertika- 


le Linie über die Position X mit dem 
Zeichen Z und der Farbe C. 





Die wichtigsten Sys-Aufrufe 


am Basic-Programm mehr 
vornehmen sollte. 

Der Interpreter würde die 
Programmzeilen neu ordnen 
und dabei den Zeichenge- 
nerator durcheinanderbrin- 
gen. Änderungen am Spiel- 


Variable: 


Leserservice 


ablauf kann man ohne weite-' 
res vornehmen. Zu diesem 
Zweck unterbricht man das 
Programm und stellt dann 
die Variablen entsprechend 
ein. Das Programm wird 
dann durch »GOTO 10« fort- 
gesetzt. 

Bei Unterbrechung mit der 
»RUNSTOP/RESTORE«Ta- 
ste kann man den Zeichen- 
generator mit »POKE 53272, 

29 wieder einschalten. 

Nachdem das Einladen 
beendet ist, erfolgt ein Rück- 
sprung aus dem Unterpro- 
gramm und die Register wer- 
den gestellt. 

In Zeile 80 erfolgt der Auf- 
rufdes Maschinen-Program- 
mes und die Auswertung. 
Sindalle Alien der ersten Zo- 
ne vernichtet, so kommt man 
in die zweite Hälfte des Ba- 
sic-Programmes, die im Prin- 


zip der ersten Hälfte ent- 
spricht. 

Das Programm ist auf den 
Joystick an Port 1 abge- 
stimmt, kann aber auch über 
»CONTROL«, »2« und »SPA- 
CE« gesteuert werden. Dies 
trifft übrigens für alle Spiele 
mit Joystick an Port 1 zu. 

(Gunther Knöpfle) 
Bestellnummer CB010 


NA : Nachladegeschwindigkeit der Basis 
MO : Wenn 0, dann keine Unterbrechung 
am Bildschirmrand 

AB: Wenn 1, dann Explosion der Invaders 
bei Abwehrberührung 

FI: Feuergeschwindigkeit der Invaders 
IN : Geschwindigkeit der Invaders 

ET : Feuergeschwindigkeit des unteren 
Alien 

DE : Verzögerung, nur in Verbindung mit 
„VE« wirksam (DE*VE) 

VE : Wenn 0, dann ausgeschaltet 
(Beschreibung siehe »DE«) 

Wenn 0, dann Wolke 1 eingeschaltet 
Wenn 0, dann Wolke 2 eingeschaltet 
Wenn 0, dann Ufo ausgeschaltet 

ZB : Punktestand 

ZH : Anzahl zerstörter Sektoren 

ZR: Hilfszeiger für steigenden Schwierig- 
keitsgrad 

M,J,1,G,T: FOR...NEXT-Variablen 
A,B: Für Auslesen der DATAS 

A$ : Eingabe, Auswertung 

SU : Prüfsumme 

MI, M2 : Zeilenzeiger für falsche DATAS 


Bei Geschwindigkeiten: Je kleiner der Wert, desto größer 


die Geschwindigkeit 





Variablenliste von »Space Invaders« 
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UserP 
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Klaus Michael 
gönnt seinem C 64 
keinen Urlaub 








\BCDEFHYKLMN 
























Sie kennen 
sicher auch das leidige 
Problem: Der Urlaub steht vor 
der Tür und keiner der 
Nachbarn will die Blumen ver- 
sorgen, da sie just in 

der gleichen Zeit Urlaubsge- 
fühle verspüren. 

SR Der Computer 
? We schafft 


9 vAac 


snD Abhilfe. 
GND 

FLAG? 

PBO 

PBI 


ort 


Bild 2. Pinbelegung 
des User-Ports. 
Benötigt wurden nur 
die Anschlüsse 2, 
AundC. 


345 785 9, wı% 


Bild 4. Dieser 
Stecker ist im Elektronik- 
fachversand oder 
-handel erhältlich. 


REM ***** UHR STELLEN ##*#% 
C=-55328:REM BASISADRESSE DER UHR IN CIA 
FOKEC+7 „FEEK (C+7) AND 127 
FOKEC+S,FEEHK (C+HSI OR 125 


INFUT"ZEIT IM FORMAT HHMMSS EINGEBEN"; A# | eng 
IF LEN(AF)<>&6 THEN 148 nen Tauchpumpe (Cam- 
ST er Ba pingartikelbedarf) und ei- 





UN I EFTEIAE TYY 

er Senay a 2 nem verzweigten Schlauch- 
M= Yie SOLDATEN > Gel system die Blumen täglich 
S=VAL (RIGHTE (A$,2}) mit dem kostbaren Naß zu 
IF H>25 THEN 142 Das Listing versorgen (Bild 1). Diese 
IF H>11 THEN H=H+68 zu Blumengießen Kleinen Pumpen haben eine 
FOKEC+Z,16*#INT (H/18) +H-INT (H/1Q) #12 (Fortsetzung Seite 84) Förderleistung von etwa 14 
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Bauteile 


Tauchpumpe und dazu 


passende Schläuche 


Stecker zum Anschluß 
an den User-Port 





elektronische Bauteile: 


Gleichrichter 


Kosten: 


Tauchpumpe und Schläuche 


Interface und Stecker 





Anwendung des Monats 








Bezeichnung 





Campingartikel 





Cardcon-Stecker der Firma TRW 
(Nr. 251-12-50-170) 


6fach-Inverter ITT 7404 
Widerstand 1 kOhm 
Transistor BC 337 

Diode IN 4001 

Relais 12 V 

Kondensator 470 mikro Farad 
8027 


m — 


zirka 20 Mark 
zirka 50 Mark 


m — — —  —z1j|,.]|]_]Z_ —Z— 


Bild 1. Das 

Interface steht links neben dem 
Commodore. Die Pumpe liegt im Eimer, 
der mit Wasser gefüllt ist. 

Durch die unterschiedlichen Schlauch- 
durchmesser kann jede Blume 
individuell mit der für sie notwendigen 
Wassermenge beliefert werden. 


Tabelle. Das brauchen Sie, wenn 
Sie Ihre Blumen mit dem Commodore 
gießen wollen. 


)/min., was für die minimalen 
Ein- und Ausschaltzeiten me- 
chanischer Schaltuhren von 
30 Minuten viel zu viel ıst. 
Elektronische Schaltuhren, 
die individuelle Schaltzy- 
klen zulassen, waren wie- 
derum viel zu teuer. 

Die Idee, meinen 64er zum 
Blumengießen herzuneh- 
men, reifte. Denn schließlich 
besitzt er einen User-Port, 
der für solche Aufgaben wie 
geschaffen ist, 


Der User-Port, 
eine Verbindung 
zur Außenwelt 








Der User-Port ist eine 
Schnittstelle, mit der der An- 
wender aufeinfache Art und 
Weise Kontaktzwischen dem 
Commodore und der Außen- 
welt herstellen kann. Mit ihm 
ist es unter anderem mög- 
lich, Geräte an- und auszu- 
schalten. Da der User-Port 
eine 8Bit breite Datenleitung 
besitzt (PBO-PB7, siehe Bild 
2), können ohne weiteres 
Klimmzüge bis zu 8 Verbrau- 
cher geschaltet werden. Da- 
zu ist jedoch etwas zusätzli- 
che Hardware nötig. Um ei- 
nen Stromverbraucher zu 
steuern (inunseremFalleine 
kleine Pumpe), benötigt man 
ein Schaltinterface. Denn die 
Pumpe braucht mehr Strom 
als der User-Port zur Verfü- 
gung stellt. In meinem Fall 
baute ich mir ein Interface, 
das direkt an das normale 
220-Volt-Netz angeschlossen 
werden kann. Mit ihm lassen 
sich grundsätzlich alle Elek- 
trogeräte schalten. Den Auf- 
bau dieses einfachen Schalt- 
interfaces zeigt Bild 3. Zu- 
sätzlich benötigt man noch 
eine Verbindung vom Inter- 
face zum User-Port. Ein ge- 
eigneter Stecker zum AÄn- 
schluß an den User-Port ist 
der Cardcon-Stecker von 
TRW (Nr. 251-12-50-170) (Bild 
4). 

Zur Absicherung des 
User-Ports wurde zwischen 
der eigentlichen Schaltung 
und dem Port ein 6fach- 
Inverter eingefügt. 


=: N.a 09 
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Anwendung des Monats G 64 













220 IF M>59 THEN 142 

230 POKEC+2,16*INT (M/12) +M-INT (M/10) x19 
240 IFS>59 THEN 140 

258 POKEC+1,16*INT (8/18) +5-INT (8/10) #1@ 
260 POKEC,® 

278 PRINT"" 


ee cueın be. 28@ REM ###x%* UHR LAEUFT x### 
sieht im wesentlichen aus 270 IFEEK (C+3) : M=PEEK (C+2) :S=PEEK (C+1) : T=PEEK (C) 


der Programmierung der a 
Echtzeituhr imCIAl.Dieses >12 IF H>32 THEN H=H-128:FL=2 
Programm entstammt dem 322 H=INT(H/16) #1Q+H-INT(H/16)*16:0N FL GOTO 35 
Data Becker-Buch 64-inten. 338 IF H=12 THEN 768 

InZeile 100bis270wirddie 342 H=H+12 
Uhr gestellt, in Zeile 280 bis 358 IF H=12 THEN H=2 
480 die laufende Uhr pro- 36@ M=INT (M/16) #1B+M-INT(M/16&)*1& 
grammiert. In Zeile 440 wird 379 S=INT(S/16)*18+5-INT (8/16) *x1&6 
abgefragt, ob der Zeitpunkt 788 T=STR&(T) 
zum Gießen erreicht ist. 49 H$=STRE(CH):IF LEN(H$)=2 THEN Hf=" D"+RIGHTFCHE,1) 
Wenn dies der Fall ist, wird „gg M$=STR&(M):IF LEN(M$)=2 THEN M$=" Q"+RIGHTE(ME,L) 
in die Subroutine 1000 ver- jr i Sauer Ze ’ 
zweigt. In diesem Unterpro- +12 S$-SIR$(S): IF LEN(S£)=2 THEN S$=" 9"+RIGHT$(S#,1) 
gramm wird das Datenrich- 42@ GIF=RIGHT& (H$ ,2) +RIGHT$ (M$,2) +RIGHT£ (S#,2) 
tungsregister auf Ausgang 43@ REM **x*%* ZEITFUNKT ZUM GIESSEN ERREICHT? *#*** 
geschaltet und mit POKE 448 IFVAL.(GI$)=20550@THENGOSUR1000 
56577,1 die PBO-Leitung auf 458 FRINT""; 
High gelegt. In Zeile 10900 468 FRINT RIGHT£(H$,2) ": "RIGHT$ (M#,2) "2 "RIGHT (SF,2)":0"; 
schließlich wartet das Pro- 478 FRINT RIGHT#$(T#,1) 
gramm 20 Sekunden und A432 GDTO 298 
schaltet in Zeile 1050 die ıgn2 REM ***** SCHALTUNTERFROGRAMM ###%** 
a n. 1012 REM **** FUMPE EINSCHALTEN *#** 

1022 FOKES6579,1:POKES6577,1 


dem jeweiligen A - 
Sungsfall angepaßt werden 1Q5@ FORI=1T0175@@:NEXT:REM FUMFE 2 SEC EINGESCHALTET 


Das Programm läßt sich 1@4@ REM **** FUMFE AUSSCHALTEN x#%* 
natürlich für beliebige 1250 FOKES6577,8 
Schaltzyklen und Schaltzei- 1968 RETURN 
ten abändern. 
(Klaus Michael) READY. Das Listing zum Blumengießen (Schluß) 


>5S.-:°0oo9o© 


1413 121110 9 8 


123456 


Rl Trafo 


| T22oov- 


Gleichrichter 


2 
& 








Schaltinterface 


O O 
Verbraucher Bild 3. Der Aufbau des einfachen Schaltinterfaces. 
Die Bauteile entnehmen Sie der Tabelle. 





- 


OA =. Ausaabe 7/Iuli 1984 


VG 20 





Daa erate 


» Sfrube «Listing : 





| ch war so begeistert, daß ich mich gleich hingesetzt und 
ein Programm geschrieben hatte, um die Fähigkeiten 
von Strubs zu testen, und ich muß sagen, Strubs ist ein Pro- 
gramm, das hält, was es verspricht. 

Das von mir mit Strubs entwickelte Programm »Menüc« 
liegt als Quell- und Objektprogramm vor. Der Benutzer 
kann damit seine Programme nur mit Hilfe der Funktions- 
tasten und der Returntaste auswählen und starten, so daß 
die umständliche Ladeprozedur per Hand entfällt. 

Will man mit »Menü« arbeiten, trägt man zunächst in 
Data-Zeilen ab Zeilennummer 10 den Text, der auf dem 
Bildschirm erscheinen soll (maximal 34 Zeichen ein und 
dann in der gleichen Zeile — durch Komma getrennt — 
den genauen Namen des Programms, das geladen wer- 
den soll. Die Verwendung des Jokers (*) zur Abkürzung ist 
dabei auch möglich. Anschließend speichert man Menü 
ab und kann es starten. 

»Menük« faßt immer 10 Programme auf einer Bildschirm- 
seite zusammen und blättert — je nachdem man mit dem 
Pfeil, der auf die Programme zeigt, nach unten oder nach 
oben aus dem Bildschirm heraus will — weiter oder zu- 
rück. 

Bei Programmen, die größer sind als »Menük« ist darauf 
zu achten, daßin der ersten bearbeiteten Programmzeile 
eine Routine steht, die die Pointer auf das Basic-Ende aus- 
richtet (siehe dazu Zeile | von »Menüd). 

Ersetztmanin den Programmen, die durch »Menü«gela- 
den werden sollen noch die END-ÄAnweisung — oder das 
Programmende, falls keine END vorhanden — durch LO- 
AD'"MENUE!''8, so wird nach Beendigung des gewählten 
Programms automatisch wieder »Menü« geladen. 

Vorsicht ist geboten bei Programmen, die den BASIC- 
Anfang oder das RÄM-Ende verschieben, da diese Pro- 
gramme zum Systemabsturz führen, wenn man die ent- 
sprechenden Vektoren nicht zurücksetzt. 

»Menü« müßte auch auf dem C 64 laufen, ich.konnte es 
aber leider nicht testen. (Gerd Sombetzki) 


Erstes Strubs-Listing 








Folgende Änderungen nahm ich für meinen VC 20 mit 
40/80 Zeichenkarte, 32 K-RAM, Floppy 1541 und VC 1526 
vor. Zunächst verlegte ich die Maschinenroutine in den 
Kassettenpuffer. Zeile: 45610 POKE 828 + i, w: ...usw. 
Der Sprung zur Interpreterroutine $ATE7 = #167 liegt 
beim VC 20 bei $C7E7 - #199. Außerdem fehlte das im 
Assemblerlisting vorhandene PLP = $283 = #40. 

Dn.: Zeile 45620 DATA32, 115,0,8,201,33,240,4,40,76,23], 
199.40 
45630 DATA169,18,133,44,169,138,76,231,199,999 
Verschieben der Initialisierungsroutine: 
45650 FORI-0TO10:READW:POKE8SO+1W 
45670 SYS350 
45680 DATA169,60,141,8,3,169,3,141,9,3,96 

Die Änderung des Wertes 8 in 18 in der Zeile 45630 ist 
notwendig, da der Basic-Änfang beim VC-20 mit Erweite- 
rung )= 8K bei $1200 beginnt, also Highbyte $12= #18. 


Ra QR 





Strubs-Listing »Menü« 
(Anfang) 
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Sagg , !OR Te HRS 134, THEN I-Tasrg GE 
Sase , = ,, Sosyg £PF&} 
See , A'sre, | 1; !Exır 
20 2310 , Ecasg 
VG @320 , !ELoop 
233 ETURN 
2332 , 
2488 Langen, 
2918 NY: "am NZAEyL m NAEH ER 
2420 , Eller ; Ta2,5 '"PALTe, 8; SOsyug 5 
2439 , PRinr Os PeRgıy, NW) pre 
2499 , IF ep en > "Ende. TH SCHLUSg 
245g , NOCH zu, PLEMEN ge NOE FUNK ON: Lan N y s 
2gga , 
2479 AD Ein Nu), 
2498 "ENDE 
2495 , 
2788 SCHLUS8 
2?je PR R& 14,,, 
. 2729 , PR] LER Tg, %, 10, Tax s, 
sting »Menü« 2739 , PRıinr Ros „ FS%5 MENYg . 
Strubs-Li 2749 , PRinr Tags, Ros . F2s5 ANDERE Disk« 
(Schluß) 275g , PRINT Tax s, Rog "RETURN, "> Ende . 
©7600 , 'Loop 
2770 2 GEr TE TA'se, ur. THE, £ETuıs 
©7880 , 'CAseo, ‚STE: _ EHRE: 1, ’ THEN ır "Tasıe Geo 
©7898 , RUNIg9 
2800 , 'OR TA'gyp, % 136, THEN "Fr GEoR, 
2818, PRine , PRı Axcs, , ITTE Ang RE Dig% IN.EGeN, . 
2820 , PR] Tax s, NN BEL, Tasre ORUECKEN 
2839 , GET MA'sre., IF Tag En ,; EN g 
2849 , enis,g ;. "I-, Close, 
Zasp , LORD ap Er,g 
2869 !OR TA ste. CHR&L a R RETURN, GEOR 
2879 PRinr RS 14,, 
2880 , PRINT 81 ISk AUF YER% NEHMEN, 
Zug , PRINT RN kauen U RECHNE ABSCHA, 
@se0 , PRINT , PRinr By, 
89je, NO 
2929 , Case 
2939 , 'ELo 
asgo , 
88 


10369 R . 
10379 , R-ıAa 97 
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1 POKE45,PEEKC 174) :POKE46 ‚PEEKC 175):CLR:GOTO 19888 
5 REM"DATAZEILEN_ENTHALTEN_X PROGRAMMNAME >, _<LADENAME> 

98 DATA"ENDE..... Lone rennen een nern rennen. 
188 DATA@,Ee 

1898 : 

18398 IFNOT{ AN/18-INTCAN/18)=B)THEN1851 
1848 MD=AN/1O-1 

1858 GOTO1878 

1851 : 

1959 MD=1NT{AN/18) 

198798 : 

1999 M=d 

119898 : 

1118 GOSUB158® 

1128 Tel 

1138 : 

1148 GOSUB2999:G60SUB2288 

1158 IFNOTC TA=8)THENI171 

1168 GOTO1241 

1178 GOTO1239 

1171 IFNOT{ TA=-1>THENI191 

11898 T=T-1: IFT{ITHENI241 

1198 GOTO12398 

1191 IFNOT( TA=1)THENIE2E3® 

1288 T=T+1:IFT>1OORT+M&1O>ANTHENI1241 
1238 : 

1249 GOTOL113® 




















































































































































2259 TA=-1:60T02321 
22698 GOTO231®8 
2251 IFNOTC TAS=CHRK 13) )THEN2281 
2278 TA=8:60T02321 

2288 GOTO2318 

2281 IFNOTC TAS=CHRS(C 134) )THEN2318 
22938 Q=1:G60SUB2898 

2388 TA=1:60T02321 

2319 : 

2328 GOTO2218 

e321 ı 

2338 RETURN 

24808 : 

2410 NJ=M#10+T 

2429 Z=T#2+2:15=5:1G60SUB1988 

2438 PRINTROSPNS{ NUIRFS 

2449 IFLEFTS( PN$S{ NY) ,4)="ENDE" THEN2788 
2478 LOADLNSCNUJ),8 

2788 : 

2718 PRINTCHR& 14793 

2728 PRINTLEFT&X CDS, 18)TAB<(S)} 


1241 ı 2738 PRINTROS* FS => MENJE : 

1258 IFNOT( TA=8) THENI271 2748 PRINTTAB<S>ROS" F? => ANDERE DISK" 
1268 GOTO1321 2758 PRINTTAB(S)ROS"RETURN => ENDE . 
1278 GOTO131® 2769 ı 


1271 IFNOTC TA=-1>THENI1291 
1288 M=M-1: 1IFM<BOTHENM=D 
1298 GOTO1319 

1291 IFNOTC TA=1>THENI131®8 
13988 M=M+1: IFM>MODTHENM=MD 
1318 3 

1328 GOTO1188 

1321 : 

1338 GOTO2488 


1598 : 

1518 GOSUB1798 

1528 I=Mz18+1 

1538 IFNOTC I< =M#19+18ANDI<=AN)THENI1SGSI 
1549 PRINT:PRINTTAB<C S?PNSC I) 

1559 I=I+1 

1568 GOTO1539 

1561 


2778 GETTAS: IFTAS=" "THENZ277® 

2788 IFNOT( TAS=CHR& 135) )THENZ28B81 

27938 RUNI®888 

2898 GOTO2928 

2881 IFNOT( TAS=CHRSC 136) )THEN2SG1 

2818 PRINT:PRINTTAB(CS) "BITTE ANDERE DISK EINLEGEN, 
2828 PRINTTAB<CS)> "DANN BEL. TASTE DRUECKEN!" 

2838 GETTAS: IFTAS=" " THEN2838 

82848 OPEN1S,8,15,"1":CLOSEIS 

2858 LOAD"MENUE",8 

2868 GOTO2328 

2861 IFNOT( TAS=CHRS& 13) ) THEN2928 

2878 PRINTCHR&( 147) 

2888 PRINT"BITTE DISKETTE DEM LAUFWERK ENTNEHMEN," 
2898 PRINT*DANN LAUFWERK UND RECHNER ABSCHALTEN." 
29988 PRINT:IPRINT*"BY, BY!" 






















































2919 END 
15708 GOSUB1888 ra; 
EUR NE NN 29338 GOTO2788 
1708 : 31% 
1718 PRINTCHR$C 147) TABC 12) "PROGRAMMAUSWAHL " 10008 4 
A ET 18812 REM"____MENUE__VERSION__VOM__81.05.84__ 
ES Re 10014 REM'_______GERD SOMBETZKI 
a En 18016 REM"________ FUHRMANNSTR.___47 

18018 REM"________4688_DORTMUND__13 


1828 PRINTROS"Fi =) OBEN"RFS" "} 
1823 PRINTROS*F3 => UNTEN"RFS" "} 
1826 PRINTROS*"RETURN => LOAD"RFS; 
1839 RETURN 

1988 : 

1918 PRINTCHR${ ISILEFTSCCDS,Z-I1)LEFTS{CCRS,S-19)7 
1928 RETURN 

2088 : 

29028 Z=T#+2+2:5=2:G60SUB1980 

2838 IFQ=1THEN2858 

29048 PRINT"==)":G0T02058 

20598 PRINT" ":Q=9 

20698 : 

2878 RETURN 

2208 : 


18828 REM"________TEL.:_9231/213656 
19938 GOSUB18188 

18848 GOTO1828 

1981988 : 

18138 GOSUB18388: IFAN=-BOTHENZ2798 
18148 DIMPNS( AN? ,LNSCANI 

18158 RESTORE 

18168 FORI=1TOAN 

18178 READPNS 1) ,LN$ 1> 

198188 NEXT 

18228 CD$="N":ROs="3" 

19238 CR$="B":!RFS="W* 

18248 FOR1=1T07 

18259 CDS=CD$S+CDS!CRS=CRSHCRS 































































218 : 18258 NEXT 
N 
2228 GETTAS: IFTAS=""THEN2228 Ta20s en 
2238 IFNOT( TAS=CHRS$( 133) ) THEN2261 z 
AN 8 - 
2248 Q=1:G0SUB2998 an neS ORE :AN=-1 





18338 READPNS,LNS 

19348 AN=AN+1 

18358 IFNOT( PNS="@")THEN18328 
19368 RETURN 








So würde das Programm ohne den 
READY. Precompiler aussehen. 
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Wer sich den 


Commodore VC 1520 kauft, 


ist sich meist auch dem Nachteil dieses VC 1520- 


Extended 
Basic und so 
weiter) 
erstellen zu 
können. 


Druckers/Plotters bewußt. Einer 

dieser Nachteile ist die fehlende Möglichkeit, 
Hardcopys mit den gängigen 
Basic-Erweiterungen (Simons Basic, 


D: abgebildete Pro- 
gramm bietet nun die 
Möglichkeit, jedes Bild in 
High Resolution Byte für Byte 
auszudrucken, wenn es sich 
im Bereich $2000=Dez.8192 
bis $3FFF= Dez.16383 befin- 
det, Steht das Bild in einem 
anderen Bereich, ist ledig- 
lich die Variable C in Zeile 
257 in die gewünschte An- 
fangsadresse zu ändern. 

Um ein High Resolution- 
Bild auszudrucken, Ist zu- 
nächst die Zeile: 
POKE44,64:POKEB64 + 256,0: 
NEW einzugeben. Anschlie- 
Bend wird das auszu- 
druckende Bild absolut (LO- 
AD"Bila”,8,)) geladen. Jetzt 
erst wird nach vorherigem 
NEW das Hardcopy- 
Programm geladen und mit 
RUN gestartet! 

Der Ausdruck dauert 
dann, je nach Bild, immer 
noch eine ganze Weile. Dies 
ließ sich, ausgehend vonder 
Hardware, leider nicht än- 
dern. 

(J. Wichmann) 


IHR 
ZR 
SR 
AR 
SR 
66 


70 

108 
118 
200 
218 
228 
238 
2408 
258 
256 
532 
257 
260 
270 
275 
288 
298 


295 :G60SUB7® 


308 
328 
325 
338 
348 
358 
360 
378 
389 
398 
xy 
408 
410 
428 
439 
440 
450 
452 
454 
456 
468 
518 
454 
528 


REA 
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EM 
EM 
EM* SPRUNG HAUPTPROGR. * 
EM 
EM 
DTO298 
REM 
REM 
REM* SUB ROUTINE * 
REM*& BYTE AUFLOESEN * 
REM 
REM 
FORSC=7TOBSTEP-1 

: IFA-2*SC<QTHENB (7-SC)=0:60T0190 
:B(7-SC)=1:A=A-2"SC 

NEXTSC 

RETURN 

REM 

REM 

REM* EINLESEN VON BYTES * 

REM* HAUPT-ALGORITHMUS + 

REM 

REM 
FORSC=1824T02823: POKESC ‚16: NEXT: POKE 
65,59: POKESI272,24 

C=8192 

DIME (9) :REM* KONSTANTE * 
DPENI1,6,1:REM* 152@ AUF X/Y PLOT * 
FORSQ=L2ZTOL2+7:L=L+1 

: FORSW=C+SOTOC+SO+312STEPB 

: A=PEEK (SW) : IFA=OTHENZ2Q 


: GOSUB4598 

: Z=O:NEXTSW 

NEXTSQ 

L2=1L2+329: IFL2<74582THEN?275 

REM 

REM* ENDE + 

REM 

CLOSE1:0OPEN4,6:REM* 15208 AUF ASCII * 
FORSC=1TO3: FRINT#4,"" 

NEXTSC: CLOSE4: END: REM uHHHH KK 
ORSCHUB DES 1520 * 

REM 

REM 

REM* AUSDRUCKEN AUF PRINTER/PLOTTER 
REM* 1528 IN HIRES * 

REM 

REM 

IFB(Z)=1THEN44Q 

Z=Z+1: IFZ<8STHEN452 

RETURN 

X=SW-C-50+2+70: Y=-L:FRINT#1,"M",X,Y 
IFB(Z+1)=BTHENPRINT#1 ‚"D",X+1,Y:G0OTO 


Z=27+1:X=X+1:60T051@2 






Flußdiagramm 
7 - »Hardcopy 
D Listing »Hardcopy mit dem VC 1520« VC 1520« 


= K.a ınn 


Commodore Grafik auf Epson 


ächten als“ 

modore 64 MO Herstellers 

des CO zines andere! en sie 

viele AnwendE Jon Druckef ET ecnießen, MO zuten. 
„dor Druckers NET Gompult Tr ne Softwarelösumd m yon 
eines Comm \jm diesen N intertace OU! : ng für den = c 64 vol 

erwerbeNl- er ein Hardwarei ie relösuMd „orport deS 
entwed - Ar 
Dieser 


schinenspracheprogramm mit 

726 Byte Länge, das den Adreß- 
bereich CB57-CBDl1 (dezimal: 51456 
bis 52182) beleat. Damit kann zum 
Beispiel das DOS 5.1 auf der Demo- 
diskette ohne Probleme zusätzlich 
geladen werden. 

Das Programm ist ohne Einschrän- 
kung für alle Centronics-kompati- 
blen Drucker anwendbar, die über 
einen Bitmustermodus verfügen. 
Dieser Modus wird für die Ausgabe 
der Commodore-eigenen Grafikzei- 
chen benötigt. Das Programm be- 
steht aus mehreren Programmtei- 
len, von denen die meisten Erweite- 
rungen bestehender Ein-/Ausgabe- 
routinen des Betriebssystems sind 
und bei der Initialisierung in diese 
eingebunden werden. Dadurch 
können schon bestehende Basicbe- 
fehle wie OPEN und PRINT# zum 
Drucken benutzt, und Programme 
müssen nicht umgeschrieben wer- 
den. Zur Änsteuerung verschiede- 
ner Druckmodi wurden jedoch zu- 
sätzliche Gerätenummern definiert, 
deren Bedeutungen in Bild 1 erklärt 
sind. Gerätenummer 16 realisiert ei- 
nen sogenannten Direktmodus, mit 
dem die internen Commodorezei- 
chencodes ohne Wandlung an den 
Drucker gelangen. Der Direktmo- 
dus ist zur Ausgabe von Steuerzei- 
chen oder bei der Verwendung des 
Druckers als Plotter zur Einzelnadel- 
steuerung beziehungsweise zur 
Ausgabe von Bitmustern geeignet. 


E shandeltsich hierbeiumein Ma- 





Der Textmodus (Groß- und Klein- 
schreibung) ist unter Gerätenum- 
mer 18 und, weil er wohl am häufig- 
sten bei bereits bestehenden Pro- 
grammen benutzt ist, unter Geräte- 
nummer 4 ansprechbar. Die Geräte- 
nummer 19 realisiert den Groß- 
schrift/Grafik-Modus, wieer beim C 
64 gleich nach dem Einschalten vor- 
eingestellt ist. Der wichtige Modus 
zum Listen von Programmen wurde 
mit Gerätenummer 17 realisiert. Es 
läßtsich über die Sekundäradlresse, 
wie in dem Musterlisting (Bild 4) ge- 
zeigt, noch zwischen vier Fällen un- 
terscheiden. Einmal kann ausge- 
wählt werden, ob das Listing, wie 
vom Bildschirm her gewohnt, mit 
Großbuchstaben und Grafikzei- 
chen oder im Textmodus mit großen 
und kleinen Buchstaben gedruckt 
wird. Zum anderen kann man aus- 
wählen, ob die Steuerzeichen wie 
bei der Bildschirmausgabe als in- 
verse Zeichen oder durch Abkür- 
zungen wie (CRD) (Cursor down) im 
Klartext gedruckt werden. Durch all 
diese Möglichkeiten kann der AÄn- 
wender zum einen auf seinem 
Drucker Ausgaben erzeugen, wie 
man sie von Commodore-Druckern 
her gewohnt ist, zum anderen auch 
alle Möglichkeiten seines Druckers 
voll nutzen. 


Commodore-eigene 
Grafikzeichen 


Die Ausgabe von Grafikzeichen 
erfolgt in der Routine OUTGEN ab 





Adresse $CACA4. Zu diesem Zweck 
wird der Zeichengenerator desC 64 
ausgelesen. Die Zeichen, die ausei- 
ner 8x 8 Punktmatrix bestehen, sind 
dortinje8Byte abgelegt. JedesByte 
repräsentiert das Punktmuster ei- 
ner Zeile der Matrix. Ein Matrix- 
drucker druckt die Zeichen, indem 
er sie ebenso als Muster von matrix- 
artig angeordneten Punkten zu Pa- 
pier bringt. Jedoch gibt er die Punkt- 
matrix nicht wie der Bildschirm zei- 
lenweise sondern spaltenweise aus. 
Deshalb wird in OUTGEN die im 
Zeichengenerator in 8 Zeilenbyte 
gespeicherte Zeichenmatrix zu- 
nächst in 8 Spaltenbyte umorgani- 
siert. Nach Umschalten des 
Druckersin densogenannten Bitmu- 
stermodus, in dem er jedes ankom- 
mende Datenbyte nicht mehr als 
ASCII-Zeichen sondern als Muster- 
byte für eine Matrixspalte interpre- 
tiert, gibt OUTGEN die acht geän- 
derten Zeichenbyte an den Drucker 
aus. Dieser fügt sie wieder zu einem 
8 x 8 Punktmatrixzeichen zusam- 
men. So ist es möglich, auf einem 
Matrixdrucker exakte Kopien der C 
64-Bildschirmzeichen herzustellen, 
obwohl dieser nicht über den ent- 
sprechenden Zeichensatz verfügt. 


Handhabung 
des Programms 


Die etwas Konzentration fordern- 
de Methode der Programmeingabe 
besteht im Eintippen desabgebilde- 
ten Basicprogramms (Bild 2), indem 
das Treiberprogramm in DATA-Zei- 
len steht. Ein eingebauter Quersum- 
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Bild 3. 
Der Verkabelungsplan 


USER PORT — CENTRONICS 
G 





A 
B 
c 
D 
E 
F 
H 
J 
K 
L 
M 













es Be 1=-51455 fo 52182 
; ®: READ x: POKE I,X: S-= 
20 NEXT ı et 


130 IF S<3827 
Si THE 5 
END N PRINT"FEHLER IN DAT 








AS ı ee 
140 SyS 51454 
150 REM 
160 REM CENT 
100, Ren RONICS TREIBERROUTINE 
200 D 
2% Aare ie 70,160,201,141, 26 3,14 
Ba Ban San e9r145,160,201.141° 28 
SOE DArR aa on Ze, 109175 160,20 
204 Daran 1aar,50, 3,140, 1} 3.169.205 
ea TEOLSTALISD an 30 
te 22’227,160,201, 141, au. 3, 5 
en 2205 169,255, 141, ee 
208 DATA enize’ a 22, = 
209 Data 1047109» 16, 44, 13/221 200°, 
ae 21a, 1,221,173, 0,221. = 
ee 41, 0,221, ae 
ae at, 76,166,184,240. 5’ 32, 2 
213 DATA EN 7217097286 166. 152 
ze: 105184, 3, 780 

DATA 152,165,184, 157) 89, ee 

F , 
















mentest deckt hoffentlich Eingabe- Der PRINT-Befehl vor dem CLO- 
fehler auf. SE ist notwendig, damit der CMD- 
Zur Herstellung des Verbindungs- Modus aufgehoben wird. 
kabels EESCHeL. eigen Er 
Drucker ist in eine Verbin- z 
ee: angegeben. = Ka- Umstellen auf beliebige 
el sollte für eine störungsfreie . . 
Funktion nicht länger als ein Meter Drucker mit Centronics- 
lang sein und aus einem abge- r 
schirmten, mehradrigen Steuerka- Schnittstelle 
bel bestehen, das man in (fast) je- an 
dem Elektronik-Bastelgeschäft fin- Das Programm wurde für einen 
det. Dort sind auch meist der Cen- Epson-Drucker geschrieben. Un- 
tronicsstecker und der Stecker für verändert ist es für jeden anderen 
den Userport erhältlich. 
Initialisiert wird die geladene 
Treiberroutine mit 
SYS 12*4096 + 9*256 beziehungs- 
weise SYS 51456 
Hierbei wird die Routine in das 
Betriebssystem eingebunden. Je- 
doch Vorsicht: Nach einem Break, 
zum Beispiel durch die Betätigung 
der Tasten RUN/STOP und RESTO- 
RE ausgelöst, muß die Routine er- 
neut initialisiert werden, da die /O- 
Vektoren vom Betriebssystem zu- 
rückgesetzt wurden. Die einzelnen 
Druckmodi spricht man mit den üb- 
lichen Basicbefehlen an. Geöffnet 
wird der Ausgabekanal mit: 
OPEN log. Dateinummer, Geräte- 
adr. [‚Sekundäradr.] 
Die eckigen Klammern kennzeich- 
nen optionale Angaben. So dann 
kann auf den geöffneten Kanal mit 
PRINT # log. Dateinummer ausge- 
geben werden. Ein Programmlisting 
wird zum Beispiel erzeugt mit (Bild 4) 
den Befehlen 
OPEN 17,17 [Sekundäradr.];CMDI7: 
LIST : = 
PRINT #17 : CLOSE 17 Oi 2. Basic-Lader für das Treiberprogramm 
am 


Aunmn harmali 1Nn04 






215 DATA 
216 DATA 99, 2,201. 4 
240, 4,201, 1 S5 
217 Data 144° 2" 22’ 00,240, 4,201, 16 | 255 DATA 208,165.185 
218 DATA 243. 32. a 3 22 256 DATA 216,132. BE Se 
219 DATA 32, 31.243.138, 72 10a ana ’o2e | 257 DATA  7,.157.19 262, 16.280. 
Bo 25 „157.192. 2.202. 16.250.152 
220 DATA 16.170 1S8, 72,165,186,201 | 258 DATA 74, 74, 74 74, : 1. 
ER ER ee 4,240, 3, 76 | 259 DATA 133, 6,152, 2 ae 
222 Data 200. 3. 46 1,292, 32, 15,243 | 260 DATA 169, 1,153, 3,120.165, 1. 41 
» 3, 76, 32, 31,243 | 261 DAT ao En 
223 DATA 165,186.201 II a ntsen 12100 
4,240, 4,201 26 A Be 
224 DATA 144, 3, 76, 10.207, yalaniaın (or a 24162, 07, We 
10,247, 76, 25,24 2 al a es gefer 
225 DATA 32, 15,243,240, 3 76° 13. ne > 
oe „2, 5, 3,157,192.01 22009 
en Ss ‚245,240, 3, 76, 1,247 | 264 DATA 16.24 "230. 
TA 32, 31,243,165,186,201, 4,240 | 265 Data ı. = eu en 
’ ’ , 7 ,-o 


228 DATA 76, 91,242 
72,133,158,165 
229 DATA 201, 16,176. I 201, arscned | 26Z:D8TA. 5,208,245 
230 DATA VE 0 a a 00, 3 268 DATA 32, a en aa Be 
231 DATA 158.164 154 192° 2138, 72,165 | 269 DATA 224,213,144, 1,202 138° al ızz 
1925748.208, ’ ’ ‚ 1,202,138, 41,127 
232 DATA 864,201, 24 as 1 os 1072>% || 270.PA1A7201,080,148 "201. 
144, 31,192, 17 2 ı ’ » 2,233, 3,201, 69 
235 DATA 6, 32, 92.200. Da aa aaa 273 DATANIAG 72,25 11a: 
202, 24,144, 21 ’ ‚2535, 3,201, 65,144, 2 
234 DNTA 4,200, a 102. ven ur132.|-272 DATA 258, 33,201 N 2.233. 
192, 18,208 & ‚ ’ » 28,144, 2,233 8 
235 DATA 43.202. 2a 122’ 18,208, 6, 32 | 273 DATA 201, 17,144 En 
144, 7,192, 19 ” iritt, 2,253, 11, 56,233 
236 DATA 3. 32. ag 202 10.1725 19,208 | 274 DATA 4,170,169 "201. 
02,104,170.104 5 »./7,207, 60, 32, 64,201,160 
237 DATA 108. 52 SE . ’ , ‚168 275 DATA 255 202,24 ’ . ’ 
201, 65,144, 18 ‚202,240, 8,200,185,122,203 
238 DATA 95.176. 2 0’ S2>144, 18,201 | 276 DATA 16,250, 48 ‚185,122, 
9, 32,208, 10 : ’ »245,200,185,122,203 
239 DATA 193.144 6 ’ - ’ ‚201 277 DATA 48, 6,3 x , 
201,222,176, 2 ’ » 32, 64,201, 24,144,244 
240 DATA 127. 76, 05 201,222,176, 2, 41 | 278 DATA 41,127, 3 gas 
201 ,201,255,240 ’ » 32, 64,201,169, 62, 76 
241 DATA 201, 96,176, 3. 76 an aa | SATA 84,261, 87 . 67, 82. 
S, 76, 64,201 ’ ’ ‚ 72,212, 67, 82,196 
242 DATA 64. 1a russ? 76, 64,201,233 | 280 DATA 82, 79,20 ‚205. 82. 
33, 64,160,208 ı 77,206, 72, 79,205, 82, 69 
243 DATA 6, 76 196 202° ,64,160,208,132 | 281 DATA 196, 67, 8 ala 
02,201 ,255,208 = ’ ‚ 82,210, 71, 82,206, & 
244 DATA 162, 94.160 208 san a0»208, 6 | 282 DATA 76,213 De 
208,208, 91, 72 „215, 79, 82,199, 70,177, 7 
245 DATA 185,192.255 209° ori» 72,164 | 283 Data 179, 70,1 eds 
8, 2,230,185 2 ‚ 70,181, 70,183, 70,178, 7 
246 DATA 127.201. z2 10a" „2’250,185, 41 | 284 Data 180, 70 Ye 
144, 44,168,165 ’ ‚182, 70,184, 66 7& 
247 DATA 41, 1.240. 4 ? ’ „185 285 DATA 67, 82 z a »2D3 
16,104,201,160 ‚ 82,213, 82, 79,198, 67 
248. DATA A 201190 10a 2 7013100,149 7 | 282 /pATA 210, 28 ‚198, 67, 76 
144, 3, 76, 43 ’ ‚ 82,206, 72, 82,212 
249 DATA 233. 64 200° 107 S»_76, 43,202 | 287 DATA 82,177 nl 
14,104,201, 96 ’ ı 71, 82,178, 72, 7 
250 Data 3. 72’ 00: 14,104,201, 96,176 | 288 para 72, 6 ste 213208 
: 1,235, 64, 16 ‚ 66,204, 71, 82,179, 8 
251 DATA 233, 64,160. N y ’ 2 289 DATA 210 r 2 ‚ 80, 85 
. 2085132,11& » 67, 82,204, 89 
252 DATA 202.104) BE ce 76,196 | 290 DATA 89,206, 27. 22, 4 a 22 
253 DATA 201, 24,105, &4, 48, Ra 


Basic-Lader für das Treiberprogramm (Schluß) 


2,1 7 4 TA 17 4 
‚165,186,15 254 DA 170,165,185, 1, 2,208,113,1&0 
, 












9%, 96,157,109, 


































227 DATA 4,20 
„201, 16,144, 3, 76,117,242 | 266 DATA 189,210.203 32, 64,201 ,232 
‚ ©£, 64,201,232,224 






















































y 76, 64 
2,105, 64 READY. 











Drucker verwendbar, sofern aufdie 
Ausgabe von commodoreeigenen 
Grafikzeichen verzichtet wird. Für 
diese Funktion muß der Drucker je- 
doch vorübergehend in den Bitmu- 
stermodus. umgeschaltet werden, 
was während einer normalen Text- 
ausgabe möglich sein muß. Diese 
Umschaltung erfolgt im Programm 
in der Schleife ab Adresse $CBl0. 
Die Anzahl der auszugebenden 
Steuerzeichen ist unter Adresse 
$CBl18 gespeichert und die Steuer- 
zeichen selbst stehen ab Adresse 
$CBD2 am Ende des Programms, 
Für einen Epson-Drucker wird die 
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x 6: 
552 ur j8Xsl$ - ’ 1 
100 En AR (14) Kppppibil 5 EEE dla 


£ 
INT C " ’ 
r HRF+(1#) EEE 








y„. 





x" 
ERPROBRAMM 
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180 % 5 
NT tt. va 
170 FRIT ppppmpbl" 5 CHLUSS 
200 FRINT  g; FUER DEN NS Folge: 
* ESC»*480 
ausgegeben, wobei mit vier der Bit- 





7 = .. 
40 PRINT ”; „RUCKER! 
210 FR EEE U 8 

x" mustermodus »CRT-Grafik« ausge- 













7 r 
22 PRINT "* uvon nz RT 1. 
2 Et: en » wählt wird, 8dasniederwertige Byte 
* x" und 0 das höherwertige Byte der 
Anzahl auszugebender Punktma- 






trixspalten darstellt. Der Epson- 
Drucker kehrt nach der Ausgabe 
der spezifizierten Anzahl Musterby- 
tes wieder in den Textmodus zu- 


rück. 
(H.Eyssele) 


Epson FX-80 
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Mitmachen, aber wie? 


Die 64’er-Redaktion freut 
sich über jeden Beiträg’un- 
serer Leser. Die Erfahrun- 
gen bei unseren{Schwester- 
zeitschriften haben aber ge- 
zeigt, daß viele Einsender 


cher Form sie ihre Manu- 
skripte {einsenden sollen. 
Die unten aufgeführten 
Punkte stellen keine »Richtli- 
nien« dar. Dennoch sollte 
sich jeder, der ein Pro- 
gramm oder einen Artikel 
einsenden will, an ein ge- 
wisses Schema halten. Dies 
erleichtert zum einen die 
Arbeit der Redaktion, zum 
anderen kommt es auch Ih- 
nen selbst zugute, da wir 
vollständige Listings oder 
Artikel schneller veröffentli- 
chen können. Folgende Kri- 
terien sind also generell zu 
beachten. 

1. Auf der ersten Seite des 
Änschreibens sollten der 
Name, die vollständige Än- 
schrift mit Telefonnummer 
sowie das Einsendedatum 
stehen. 

2. In der »Betreffzeile« tra- 
gen Sie die genaue Spezifi- 
kation des verwendeten 
Computers und falls erfor- 
derlich, die Basic-, ROM- 
oder DOS-Versionen sowie 
die  Speicherkonfiguratio- 
nen ein. Der Titel des Arti- 
kels sollte ebenfalls daraus 
ersichtlich sein (auch für 
eventuelle Nachträge). 

3. Im darauffolgenden Text 
können Sie Wesentliches zu 
Ihrer Person, zur Entste- 
hungsgeschichte des Pro- 
gramms/Artikels, der Ab- 
sicht, der Vorteile gegen- 
über anderen Programmen 
oder Methoden, der Eigen- 
schaften und so weiter er- 
läutern. 

4. Auf der nächsten Seite 
beginnt die eigentliche Pro- 
grammbeschreibung. Diese 
sollte nach Möglichkeit mit 
der Schreibmaschine ge- 
schrieben werden oder als 
Cormputerausdruck vorlie- 
gen. Den Text bitte mit min- 
destens eineinhalb oder 
doppeltem Zeilenabstand 
verfassen. Am linken und 
rechten Rand mindestens 
drei Zentimeter Freiraum 
für Korrekturen und Bemer- 
kungen lassen. 





nicht genaü wissen, in wel-» 


5. Diese und alle nachfol- 
genden Seiten sollten 
durchnumeriert sein und in 
der Kopfzeile jeweils den Ti- 
tel des Programms und den 
Namen des Autors enthal- 
ten. a 

6. Der Überschrift des Arti- 
kels schließen sich zwei 
oder drei einleitende Sätze 
an, welche die wesentlichen 
Punkte des Textes zusam- 
menfassen. 

Der Text selbst sollte in et- 
wa folgenden Aufbau auf- 
weisen! 

— Angaben auf welchem 
Computer das Programm 
lauffähig ist sowie welche 
Erweiterungen und Peri- 
pherie notwendig sind 

— ausführliche Beschrei- 
bung der Programmfunktion 
(mit Verweisen auf Ein-/ 
Ausgabebeispielen wie 
Grafiken, Bildschirmfotö- 
grafien, Hardcopys «oder 
Diagrammen) 

— detaillierte Programmbe- 
schreibung (mif Verweisen 
auf  Programmablaufplan, 
Variablendeäinition, Start- 
adressen der einzelnen Un- 
terprogramme,  Beschrei- 
bung wichtiger Programm- 
zeilen etc.) 

— eventuelle Umsetzung auf 
andere Baäsic-Dialekte oder 
Computer 

7. Die genauen Lade- und 
Abspeicherschritte des Pro- 
gramms und der im Pro- 
gramm vorkommenden 
Routinen sollten dokumen- 
tiert sein. 

8. Listings aus reprotechni- 
schen Gründen nur als Ori- 


ginal (keine Kopien) auf wei- 
ßem, unliniertem Papier mit 
neuwertigem Farbband ge- 
druckt einsenden. In den Li- 
stings dürfen grundsätzlich 
keine handschriftlichen Ein- 
tragungen stehen. 

9. In den Kopfzeilen des 
Programms bitte den Titel 
desselben, die Computer- 
konfiguration, den eigenen 
Namen und die Adresse mit 
Telefonnummer‘ eintragen 
(es soll vorkommen, daß 
sich Listings und Manuskrip- 
te verselbständigen, und mit 
beiden allein läßt sich wenig 
anfangen). 

REM-Zeilen im Programm 
dienen der Übersichtlich- 
keit und sollten, falls nicht 
speicherkritische Aspekte 
dagegensprechen, immer 
zur Strukturierung einge- 
setzt werden (siehe u. a. 
»SauberesProgrammieren«). 
10. Um das Eintippen für an- 
dere zu erleichtern, sollten 
Sie CHR$(@&X)-Werte und 
TAB(X) oder SPC(X) anstatt 
Cursor-Manipulationen für 
die Ausgabeformatierung 
verwenden. So ist die Be- 
fehlssequenz FOR I=1 TO 
6:PRINT:NEXT zur Erzeu- 
gung von sechs Carriage 
Returns leichter einzutippen 
und auf andere Basic-Corn- 
puter wesentlich einfacher 
zu übertragen. Und ist es 
nicht auch übersichtlicher 
statt einem Dutzend Cursor- 
Rechts-Symbolen _ einfach 
SPC(12) zu benutzen? Über- 
prüfen Sie Ihr Programm 
einmal hinsichtlich dieser 
»Kleinigkeiten«. 


Wie 
schicke 
ich meine 
Programme 


ein? 





11. Da wir (in Ihrem eigenen 
Interesse) nur getestete Pro- 
gramme veröffentlichen 
wollen, legen Sie bitte unbe- 
dingt eine Diskette oder 
Kassette, auf der das betref- 
fende Programm mit minde- 
stens einer Sicherheitskopie 
abgespeichert ist, bei. Auf 
der Diskette/Kassette und 
deren Umhüllung unbedingt 
den Namen mit vollständi- 
ger Ädresse und Computer- 
bezeichnung vermerken. 
12. Wollen Sie mehrere Pro- 
gramme/Artikel gleichzei- 
tig einsenden, so trennen 
Sie die Programme/Artikel 
nach dem oben aufgezeig- 
ten Schema. Die Einsen- 
dung mehrerer Disket- 
ten/Kassetten ist hingegen 
nicht notwendig. 

13. Artikel können beliebig 
lang sein — von einzeiligen 
Routinen bis zu Serien über 
mehrere Ausgaben. Ein 
durchschnittlicher Artikel 
hat rund vier bis acht 
Schreibmaschinenseiten. 
14, Hardcopys, Flußdia- 
gramme, Zeichnungen und 
Biläschirmfotos dienen der 
Anschaulichkeit. Sie sollten 
nach Möglichkeit nicht feh- 
len. Zu jedem der vorge- 
nannten »Zugaben« gehört 
aber eine Bildunterschrift 
und ein Verweis im Text. 
15. Programme/Artikel die 
unserem Verlag zur Veröf- 
fentlichung angeboten wer- 
den, sollten aus urheber- 
rechtlichen Gründen nicht 
gleichzeitig einem anderem 
Verlag vorliegen. 

16. Das 64’er Magazin zahlt 
für Listings eine Pauschale 
zwischen 100 und 300 Mark. 
Für reine Artikel beträgt 
das Honorar zwischen 0,80 
und 1,00 Mark pro Druckzei- 
le. Für Disketten/Kassetten 
werden 30 Mark extra be- 


rechnet. 
17. Sollten sich nach Erhalt 
eines positiven AÄnwort- 


schreibens noch irgendwel- 
che Änderungen oder Ver- 
besserungen des Pro- 


gramms ergeben haben, tei- 
len Sie uns das bitte umge- 
hend mit. In diesem Falle 
benötigen wir ein vollstän- 
dig neues Listing mit ent- 
sprechendem Datenträger. 

(aa) 
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ze können Sie fol- 
gende wichtige grafische 
Daten abrufen: Nullstellen, 
relative Minima und Maxi- 
ma, das absolute Minimum 
und Maximum, die Fläche 
unter dem Graphen, das Vo- 
lumen des Rotationskörpers 
und Sie können einzelne 
Funktionswerte abfragen. 
Diese grafischen Daten wer- 
den auf einige Stellen hinter 
dem Komma genau berech- 
net, In seltenen Fällen kön- 
nen diese auch falsch be- 
rechnet werden. Dies istteil- 
weise auf Fehler im Betriebs- 
system und auf Fehler bei 
der Äpproximation (Nähe- 
rung) zurückzuführen. 
Eingabe der Funktionsdaten 

a) Eingabe der Funktion 
Dies geschieht in der norma- 
len Commodore-Schreib- 
weise, wie sie in dem Hand- 
buch auf den Seiten 23 bis 29 
beschrieben ist. Beispiel: 
normale Darstellung: 
F(X)=COSX+COS2X+ 
COS5X 

Eingabe in den Computer: 
COSK)+COS(2*X)+COS 
(5*X) 

Mit dieser Schreibweise 
können Sie jede Funktion 
eingeben, die im Commo- 
dore-Basic implementiert ist: 
(ABSX), ATN@), COS@), 
EXP&), INT), LOGK), 
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SIN&), SQR(X) und TAN(X)). 
b) Eingabe des Intervalls, in 
der die Funktion geplottet 
werden soll: 

Zuerst wintdie linke Gren- 
ze des Intervalls eingege- 
ben, 
durch ein Komma getrennt. 
Die grafischen Daten wer- 
denspäter nur für dieses von 
Ihnen angegebene Intervall 
berechnet. Beispiel: norma- 
le Darstellung: 

[—10,10] 
Eingabe in den Computer: 
— 10,10 

Natürlich dürfen die Funk- 
tionen nur in definierten In- 
tervallen eingegeben wer- 
den. Die Wurzelfunktion ist 
'zum Beispielnur im positiven 
Bereich definiert. Sie darfal- 
so nicht im Intervall von —5 
bis 7 eingegeben werden. 
c) Eingabe der Einheiten 

Hier wird eine positive 
Zahl sowohl bei der X-Achse 
als auch bei der Y-Ächse an- 
gegeben. Es können nur bis 
zu 30 Einheitenstriche auf 
der X-Achse und YAchse ge- 
plottet werden. Falls Sie kei- 
ne Einheitenstriche benöti- 
gen, drücken Sie einfach 
»RETURN«. 
dad) Ausdruck auf 
1526-Drucker (mit 
ROMs) 

Sie haben die Möglichkeit, 
die Funktion in verschiede- 
nen Maßstäben zu drucken 


dem 
neuen 


danach die rechte» 


strichen versehen, 9677" 


(1:1, 1:2, 1:4). Jenach Eingabe 
der Vergrößerung wird die 
Kurve entsprechend groß 
geplottet. Anschließend 
werdennoch wichtige Änga- 
ben zur Funktion gedruckt. 
Falls Sie später noch grafi- 


sche Daten abrufen werden, - - 


werden diese automatisch 
auch noch gedrückt. Wenn 
Sie keinen Ausdruck auf 


dem Drucker benötigen 
oder wenn Sie keinen 
1526-Drucker besitzen, 


drücken Sie einfach »RE- 
TURN«. 
e) Höchster YWert 

Das Programm ist so konzi- 
piert, daß die Funktion im- 
mer den gesamten Grafik- 
bildschirm voll ausnutzt. 
Wenn jetzt in dem angege- 
benen Intervall eine Unend- 
lichkeitsstelle auftritt, wird 
die Funktion im Bereich der 
X-Achse sehr gestaucht. Dies 
soll durch die Angabe des 
höchsten YWerts verhindert 
werden. Wenn Sie zum Bei- 
spiel die Funktion //X im In- 
tervall —5,5 plotten lassen 
und Sie geben als höchsten 
Y-Wert lOan, dann werdenal- 
le Werte, die größer als 10 
sind, weggelassen. Jetzt liegt 
der Wert F(X) = 10 am obe- 
ren Ende des Grafikbild- 
schirms und F(X) = —10 am 
unteren Ende. Dadurch wird 
die Funktion im Bereich der 
X-Achse nicht gestaucht. 
Falls der angegebene Y- 


Wert größer als der höchste 
Funktionswert ist, hat dieser 
keinen Einfluß auf den Äus- 
druck. Wenn Sie nur »RE- 
TURN« drücken, beträgt der 
höchste Y-Wert automatisch 
1000. 
Abruf der grafischen Daten 
Nachdem die Funktion 
korrekt eingegeben wurde, 
braucht der Computer zirka 
2 bis 3 Minuten, bis er mit 
dem Plotten fertig ist. Da- 
nach drücken Sie bitte eine 
beliebige Taste. Es erschei- 
nen einige wichtige Informa- 
tionen und ein Menü. Auf 
Druck der entsprechenden 
Zahl wird das Erwünschte 
ausgeführt. Wir wollen uns 
jetzt nur der zweiten Mög- 
lichkeit zuwenden, da sich 
die anderen wohl selbst er- 
klären. Auf Druck der Taste 
2 erscheint ein weiteres Me- 
nü. Jetzt könnenSie alle grafi- 
schen Daten-errechnen las- 
sen. Diese werden, wie unter 
Punkt 2.b erwähnt, nur in 
dem angegebenen Intervall, 
mit Ausnahme der speziel- 
len Funktionswerte, errech- 
net. Folgende Sonderfälle 
sind zu beschten. 
1. Absolute Extremwerte 
Diese können nur korrekt 
berechnet werden, wenn 
der höchste YWert größer ist 
als der größte Funktions- 
wert. 
2. Fläche unter dem Gra- 
phen 
Der Computer gibt nicht 
wie bei der Integralrech- 
nung die Differenz der Flä- 
che zwischen dem Graphen 
und der X-Achse an, sondern 
den tatsächlichen absoluten 
Wert der Fläche. 
3. Spezielle Funktionswerte 
Falls Sie beim Abfragen ei- 
nes Funktionswertes genau 
eine Unendlichkeitsstelle 
oder eine nicht definierte 
Stelle erwischt haben soll- 
ten, gibt der Computer eine 
Null als Funktionswert an. 
(Jan Schaefer) 
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8-3 Addresse des Autors 

19-19 Funktionseingabe 

25,26 Eingabe des Intervalls 

27-29 Eingabe der Einheiten 

38-56 Eingabe des Druckmasstabs 

57-59 Einsabe des hosechsten Y-Werts 

58-63 Abfrage, ob alle Eingaben Korrekt sind 
84-568 Poken der Maschinenspracherout N< 
s9-72 Errechnen der Position der Y-Achse 

74 Variablenfelder uerden definiert 

75-85 alle Funktionuerte werden errechnet, um die Position 































































































der -Achse ZU bestimmen 

87,88 der Graphikbildschirm wird geloescht und angeschaltet 

83-95 die Geraden werden mit einer Kurzen Maschinensprache@” 
routine geplottet 

95-98 Plotten der pfeilspitzen 

99-188 Plotten der Einheitenstriche 

1989-129 die Funktion wird auf dem Bildschirmgerlottet? 
waehrendessen werden die graphischen Daten best immt 

ı12 Berrechnen der Flaeche und des Rotationskoerker® 

114 Plotten eines einzelnen Punktes in Maschinensprache 

117 Nullstellen werden festgestellt 

118,119 relative Maxima bzZW. Minima nerden festgestellt 

121-153 die Funktion wird auf dem Drucker ausgegeben 

154-184 Drucken des ersten Menues 

165-163 Abfrage der einzelnen Tasten 

169 Funktion nochmal sehen 

179 neue Funktion eingeben 

ı71 Programmende 

172-189 Drucken des zweiten Menues 

181-183 Abfrage der einzelnen Tasten 

ı84-213 Nullstellen werden berrechnet 

189-197 Nullstellen werden mit dem Newton Verfahren genaehert 

138-294 hier wird festgestellt, ob die angenommenen 
Nullstellen auch echt" sind 

2e5-21l Nullstellen werden ausgedruckt 

214-246 Berrechnuns der relativen Extremuerte 

214-230 Feststellen, ob Extremwerte® korrekt sind 

231-249 Extremuerte werden durch Intervallschachtelung genaer 
hert 

241-296 Extremerte® werden gedruckt 

247-284 absolute Extremuerte werden errechnet 

247-269 Extremuerte werden durch Intervalischachtelun® genaer 
hert 

279-284 Feststellen ob Extremwerte Korrekt sind und Ausdruck 

285-293 Naeherun9 der Flaeche unter dem Graphen mittels der 
Tangententrapezres®! 

234-302 Naeheruns des Volumen des Rotationskoerper® 

303-317 Abfrage von speziellen Funktionsuerten 

318,313 allgemein® Plotroutine 

329-369 Datas der Maschinenspracheroutin@f 
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Kurvendiskussion C 64 
Listing »Kurvendiskussion« 
Q REM &0 FRINT"ESIND ALLE EINGABEN KORREKT (J/ 
1 REM DIESES FROSRAMM WURDE 1955 ER- N)" 
2 REM STELLT VEN: &1 GETDF: IFDF=""THENGL 
3 REM FEÄEREREFHFRURIEE 62 IFD$="N"THENI1 
4 REM *JAN SCHAEFER * &3 PRINT"D"C$ 
5 REM #IN DER LOHN 9 * &4 REM FOKEN BER MASCHINENROUTINE 
& REM * * 65 IFMP=1THEN?I 
7 REM *5100 AACHEN 1 $ && FORI=0T054: READA: FOKEBSZS+I ,„A:NEXT 
8 REM *TEL. 02408/3640 * &7 FORI=0T0351:READA:FOKE49152+I1,A:NEXT 
7 REM KURKHKRRRKHFERENE 68 FOKE758,37:POKE7697,168 


10 FOKES3220,14:POKESS281 ,6:FOKE64& ,1 

11 FRINT"I®S KURVENDISKUS 
STLLEBEN® 

12 PRINT" VON JAN SCHAEFER" 
153 INPUT"EFUNKTION F(X)="; At 

14 IFA£g=""THENAF="1" 

15 FOKEd645,6 

15 FRINT"ERZODEFFNA(KX)I=";A$ 

17 FRINT"21AF="CHRE (ZA) AECHRE (Z4) " 

18 FRINT"RUNZOZTITID"; 

179 POKE8&3S1,13:F0OKE432,13: P0KELSZ, 13: POKE 
6834,13: FOKE1S8,4:END 

20 DEFFNA(X)I=X*Z 

21 As="xr2" 

22 FOKE548 ,1:FRINT"IZIITI :C$=" 

23 FORI=1T96:FRINTCF: NEXT 

24 PRINT'"ZIZIIID" 

25 INPUT"EINTERVALL DER X-ACHSE (21, 227" 
11,72 

26 IFI2<=I1THENFRINT"TIIID":GOTO2S 

27 INFUT"BEINHEITEN DER X-ACHSE"ZEX 

28 IFEX=OTHENEX=I2-I1 

23 INFUT"REINHEITEN DER Y-ASHSE"ZEY 

30 FRINT"ESOLL DIE FUNKTION GEDRUCKT WER 
DEN (J/N}" 

31 GETD£: IFD+=""THENZ31 

32 FRINT"TID":FORI=1TOS: PRINTOC$:NEXT:PRI 
NT'"IID" 

33 IFD£="J"THENSS 

54 607057 

35 FD=e1:E£="DIE FUNKTION WIRD" 

3& FRINT"®SOLL DIE FUNKTION IN X-RICHTUN 
56 VER-" 

37 FRINT"&GROESSERT WERDEN (J/N)?" 

38 GETD£: IFD£=""THENSB 

37 IFD£="N"THEN41 

40 Et=Ef+" IN X-RICHTUNG" = VX=1 

41 PRINT"TIITID":FORI=1T0S:FRINTOCE:NEXT:P 
RINT"OIIIIND" 

42 FRINT"BSOLL DIE FUNKTION IN Y-RICHTUN 
56 VER-" 

453 FRINT"SSROESSERT WERDEN (J/N)?" 

44 GETDE: IFDf=""THEN44 

45 IFD$£="N"THEN49 

46 IFVX=OTHENEF=E$+" IN Y-RICHTUNS":60TO 
48 

47 E$=E$+" UND":F$="IN Y-RICHTUNGS " 

48 VY=255:AR=51 

49 IFVX=10RVY=255STHENF$=SF$+"VERGROESSERT 
GEFLOTTET. ":60T051 

50 E$=Ef+" GEPLOTTET." 

51 FRINT"TID" 

52 IFVY=OTHENAR=25 

53 FORI=0T03:PRINTC$:NEXT 

54 FRINT"IIITD"E$ 

55 IFF£=""THENS7 

56 FRINT"E"FE 

57 INFUT"KHOECHSTER Y-WERT"SHX 

58 IFHX=0THENHX=109 

59 IFEY=OTHENEY=HX 





67 REM ERRECHNEN DER FOSITION 

70 REM DER GERADEN 

71 IE=12-11:1IFI1>0THENYA=0: 50T073 

72 YA=INT(Z19/IB*ABS(I1)+.5) 

73 N=IB/31?% 

74 DIMK(TZ25) :DIMNU (521): DIMNR (100) :DIMRE 
321) 2DIMRR (100) :DIMRM (321) 

75 WI=1E+33:WA=-WI 

7& FORI=I1TGI2+NSTEPN 

77 J=J+1:KtJ)=FNACI) 

78 IFKCT3 >WATHENWA=SK (I) =MA=I 

79 IFKC(JI<WITHENWI=K (J) :MI=I 

80 NEXT 

31 IFWA>HXTHENWA=HX 

82 IFWI<-HXTHENWI=-HX 

87 IH=WA-WI 

84 IFWI>OTHENXA=199: IH=WA:WI=0:G60T0O88 

855 IFWAZOTHENXA=0: IH=ABS(WI}:GOTIES 

S&E XKA=INTLIIFFIHrABSCWA)+.5) 

87 REM STARTEN DES BITMAPF-MODE 

88 V=53248:AD=8192:5YS828:POKE16701,VY:F 
OKEV+17,59:FOKEV+24,24:POKESS280,1 

SF REM ZEICHNEN DER GERADEN 

790 IFYA>S1ITHENYA=317 

91 IFYAZOTHENYA=O 

TZ X%=YA:Y=0:605UB318: FOKE14704 ,FEEK (1572 
2):5Y549575 

93 IFXA>199THENXA=199 

74 IFXA<SOTHENXA=O 

75 Y=XA:YX=0:5605U8B318:5Y549504 

95 REM ZEICHNEN BER FFEILSFITZEN 

97 FORI=-7T07:Y=XA+1:X=319-8BS (I) :5G0SUBZ 
18:NEXT 

98 FORI=-7T07:Y=ABS(II: X=YA+IL:GOSUBZIB:N 
EXT 

997 REM ZEICHNEN DER EINHEITEN 

100 REM DER X-ACHSE 

101 D=(EX*319) /1B: IFD<10THEN105 

102 FORI=YATDOS1OSTEFD: FORU=-4T04: Y=XA+U: 
X=1+.5:505UB318:NEXTU,I 

103 FORI=YATO10OSTEF-D: FORU=-4T04: Y=XA+U: 
3=1I+.5:50SUB318:NEXTU,I 

104 REM ZEICHNEN DER EINHEITEN 

105 REM Y-ACHSE 

105 D=(EY#199) /IHz: IFD<STHEN110 

107 FORI=XATO19SSTEFD: FORU=-3T03: Y=I+.5: 
%X=YA+U:GDSUBS1B:NEXTU,TI 

108 FORI=XATOSSTEF-D: FORU=S-STO3: Y=I+.5:X 
=YA+U:G60OSUBS18:NEXTU,I 

109 REM ZEICHNEN DER FUNKTION 

110 E=-199/IH:F=ABS (WI)#E+199 

111 FORI=1T0319:X=I-1:Y=K(I)*#E+F 

112 FL=FL+ABS(K(CI))=RO=SRO+K (I) 2: RV=RY+K 
(I#K(CI+1) 

1135 IFY>2010RY<OTHEN115 


114 SYS47629 .Y+.5.X/8.XAND255:5Y549744.2 
“FEEK (18722) 


115 IFI<2THENNEXT 
11& A=INT(Y+.53:D=K(I-1)*E+F:B=INT (D+.5} 
117 IFB£XAANDA>=XAORB=P>XAANDA=<XATHENM=M 
+12NUCM)=IX*N+II1-N 
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118 C=KtI+1)#E+F: IFY>DANDY=>CTHENT=T+1:R 
E(T)=I#N+I1-N:RM(CT)=1:60T0120 

119 IFY<DANDY=<CTHENT=T+1:RE(TI=I#N+II-N 
:RMCTI=O 

120 NEXT 

121 REM FLOTTEN DER FUNKTION 

122 IFPD=0THEN154 

123 OPENS;4,5: 0PEN4,4:0PEN&,4,6:5Y549152 
124 PRINT#8 ,CHR$ (20) 

125 PRINT#4 


12& FRINT#4,CHRE (14) CHR$ (14) " KURVEND 
ISKUSSIDN" 

127 FPRINT#4 

128 FRINT#4,CHRE (14) " VON JAN 


SCHAEFER" 
129 PRINT#4 

130 FORI=SOTOAR: PRINT#5,CHR$ (20) zPRINT#4: 
PRINT#&,CHR#E (0) 

131 FORU=0T039 

132 I$="": IFPEEK (16705) =255THEN141 

133 FORI=OT07:A=PEEK (15709+J) : I$=I$+CHR& 
(A):NEXTI 

134 IJ$="",0geun 

135 PRINT#5,1$ 

1356 FORK=0TQU: J$=J$+C$:C$=" ":NEXTK 

137 IFVX=OTHEN140 

138 PRINT#4,CHR$ (14) JSCHR$ (254) 

139 60T0141 

140 PRINT#4,J£CHR$ (254) 

141 E=0:5Y5491&0:NEXTU,I 

142 PRINT#6 ,CHR$ (20) 
143 FRINT#4, 

144 PRINT#4, 

145 FRINT#4,"F(X)="A$ 

146 PRINT#4, 

147 PRINT#4,"INTERVALL VON "Ii" BIS "12 
148 FRINT#4, 

149 PRINT#4,"DIE EINHEITEN DER X-ACHSE 5 
IND IM ABSTAND VON"EX"GESETZT WORDEN. " 
150 PRINT#4, 

151 PRINT#4,"DIE EINHEITEN DER Y-ACHSE S 
IND IM ABSTAND VON"EY"GESETZT WORDEN. " 
152 PRINT#4 

153 PRINT#4,"DER HOECHSTE Y-WERT IST"HX" 
154 GETD$: IFD$=""THEN154 

155 FRINT"(":POKEV+17,27: POKEV+24,21:POK 
E53280,&6: FOKES3281,9 

156 PRINT"F(X)="A$ 

157 FPRINT"RINTERVALL VON"I1"BIS"I2 

158 FRINT"BEINHEITEN DER X-ACHSE : "EX 
159 PRINT"BEINHEITEN DER Y-ACHSE :"EY 
160 FRINT"EDER HOECHSTE Y-WERT IST"Hx"." 
161 FRINT"®1 DIE FUNKTION NOCHMAL SEHEN 
162 FRINT"W2 
ION" 

163 FRINT"®S NEUE FUNKTION EINGEBEN" 
164 FRINT"®4 PROSRAMMENDE" 

165 GETD$: IFD$=""THEN165 

166 A=VAL(D$) 

167 ONAGOTO167,172,170,171 

168 G0T0155 

169 POKEZS1,0:SYS842:POKEV+17,59:POKEV+2 
4,24: FOKESS280,1:60T0154 

170 ELR:FOKE748, 139: POKE769 ,227:MP=1:60T 
010 

171 POKE768, 139: FOKE769 ,227:END 

172 POKESS281 ,2:POKESZ280,3:PRINT"U"; 
173 FRINT"®1 NULLSTELLEN 

174 PRINT"®&Z2 RELATIVE EXTREMWERTE 


GRAFHISCHE DATEN DER FUNKT 
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ABSOLUTE EXTREMWERTE 
FLAECHE UNTER DEM GRAFPHEN 
VOLUMEN DES ROTATIONSKDERP 


175 FRINT'ES 
17& PRINT"B4 
177 PRINT"ES 
ERS 
178 PRINT"E&S 
177 FRINT"W7 
180 FRINT"S”; 
181 GETD$: IFDr=""THEN181 

182 A=VAL (DE) :FOKESFZ80,1:POKESZ281,14:0 
NAGOTO184,215,247,288,295,303,155 

183 FOKES3281 ,2:POKES3280,3:60T0181 
184 REM NULLSTELLENBERECHNUNS 

185 R=0:FRINT"LS NULLSTELLE 
N " 

185 IFPD=1THENPRINT#4:PRINT#4," 

NULLSTELLEN" 

187 IFM=OANDFD=1ITHENPRINT#4:PRINT#4,"KEI 
NE NULLSTELLEN" 
188 IFM=OTHENFRINT"RKEINE NULLSTELLEN":G 
0T0212 
187 FORI=1TOM 

190 N1=NUCT) 

171 FORU=1T010 

172 S=(FNA(NU(CII+ (107-8) )-FNA(NUCI)YYZ/1O 
IB 

193 IFABS(S)I<1E-38THENSOTO1FS 

194 NUCTI=NULTI-(CFNACNUCTIIIZ/S 

195 IFABS(NI-NUCT)) >NORNI=NU CT) THENNUCT) 
=-1000:60T0197 

1758 NEXTU 

177 NEXTI 

178 FORJ=1TDI:FORU=J+1TDI 

199 IFJI=ITHEN204 
200 IFABS (NU (II -NU CU) I ZNTHENNU CL) =-1000 
201 NEXTU 
202 IFNU(J)=-1000THENZ204 

203 R=R+1:NR{RI=NU(CT) 
204 NEXTJ 
205 IFR=OANDFD=1THENFRINT#4: FRINT#4,"KEI 
NE NULLSTELLEN" 
2058 IFR=OTHENPRINT"LKEINE NULLSTELLEN":G 
0T0212 
207 FORI=1TOR 
208 NR(TI)=INT.(NR(II*100+.5)/100 

209 IFFD=1THENPRINT#4:FRINT#4,I". FUER X 
="NR(I) 

210 FRINT"E"I". FUER X="NRCI) 

211 NEXT 
212 GETD$: IFD#=""THENZ212 

213 G0T0172 

214 REM RELATIVE EXTREMWERTE 

215 IFFD=1THENFRINT#4:FRINT#4," 

RELATIVE EXTREMWERTE" 
2158 FRINT"IS 

TE " 

217 IFT=OANDFD=1THENFRINT#4:FRINT#4,"KEI 
NE RELATIVEN EXTREMWERTE" 

218 IFT=0OTHENPRINT"EKEINE RELATIVEN EXTR 
EMWERTE":G60T0212 
217 TS=T=:FORI=1T0T 

220 A=FNA(RE(T)) 

221 B=FNA(RE(I)-N) 

222 E=FNA(RE(I)I+N) 

223 IFABS(A-B) >IH/4THENTS=TS-1:RE(CII=-10 
00 

224 IFABS(A-C)I >IH/4THENTS=TS-1:RECII=-10 
00 

225 NEXT 
226 IFTS=OTHENT=0: 6070217 
227 FORI=1TOT 
228 IFRE(I)=-1000THEN23 


SPEZIELLER FUNKTIDONWERT 
RUECKSFRUNS INS HAUPTMENUE 


RELATIVE EXTREMWER 
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229 TT=TT+1:RE(TT)I=RE(I) 
230 NEXT: T=TT: IFTT=SOTHEN217 
231 FORI=1T0OT:FORU=0TO& 
232 B=N/10”U 
233 FORI=1T010 
234 D=FNA(RE(I}+B) 

235 E=FNACRE(I) 
236 IFD>EANDRMCIY=OTHENRE(CI)=RECIIHBSNEX 
TI 
237 IFD<EANDRM(I)=OTHENRE (T}=RE(II-BZNEX 
TJ 
238 IFD<EANDRM(CI}=1THENRE {I}=RE(TII+EB:NEX 
TI 
239 IFD>EANDRM(I)=1THENRE (T)=RE(TI-B:NEX 
TJ 
240 NEXTU,I 

241 FORI=1TOT 
242 A=FNA(CRE(I)) 
243 A=INT (A*1000+.5) /1000:RECI)=INT(RECI 
3*1000+.5)/1000 
244 PRINT"@"I". FUER FO"RECTN"I=TR 

245 IFFD=1THENFRINT#4:FRINT#4,1". FUER F 
"RE(DI")I="A 

246 NEXT:50T0212 

247 REM ABSGLUTE EXTREMWERTE 

248 FRINT"IE ABSOLUTE EXTREMWER 
ic 
249 IFPD=1THENFRINT#4:FRINT#4," 

ABSOLUTE EXTREMWERTE" 
250 AE(1}Y=MA:AE(ZI=MI 

251 FORI=1T02:FORU=1T0& 
252 B=N/10”U 

2535 FORJ=1TD1O 
254 D=FNA(AE(I}+B) 

255 E=FNA(AE(TY) 
256 IFD<EANDI=1THENAE(I)=AECII-B:NEXTI 
257 IFD>EANDI=1THENAE(T)I=SSECTI+BENEXTI 
258 IFD<EANDI=2THENAE (TII=AECII)+BENEXTI 
259 IFD>EANDI=2ZTHENAE (I)=SAECTI)-B:NEXTI 
Z&0 NEXTU,I 

261 IFAE(1) >IZTHENAE(1}=I2 
262 IFAEt1)<SIITHENAEC1I=II 

263 IFAE(Z2Y<I1THENAE(2)=I1 
264 IFAE(2) >IZTHENAE(2)=I2 
265 FORI=1T02 
267 AII=FNA(AECT)) 

268 AI}=INT(ACI)#1000+.53/1000:AE{TI=IN 
TtAE(I}*1000+.5) 7/1009 
2689 NEXT 
279 IFABS(At1)) >HXTHENFRINT"RDAS ABSOLUT 
E MAXIMUM KANN NICHT BESTIMMTRWERDEN. " 
271 IFABS(A(1}) >HXANDFD=1THENFRINT#4, 
272 IFABS(A(1)) >HXANDPD=1THENFSINT#4,"DA 
S ABSOLUTE MAXIMUM KANN NICHT BESTIMMT W 
ERDEN. " 
273° IFABS(A(1)) >HYTHENZ77 
274 FRINT"EIDAS ABSOLUTE MAXIMUM LIEGT BE 
r« 
275 PRINT"IFC"AECIY")="ACN) 
276 IFFD=1THENFRINT#4: FRINT#4, "DAS ABSOL 
UTE MAXIMUM LIEGT BEI Ft"AEIY")="ACL) 
277 IFABS(A (23) >HXTHENFPRINT"SDAS ABSOLUT 
E MINIMUM KANN NICHT BESTIMMTIWERDEN. " 
278 IFABS(A(2) 3) >HXANDFD=1THENFRINT#4 
279 IFABS(A(2) ) >HXANDFD=1THENFRINT#4,"DA 
S ABSOLUTE MINIMUM KANN NICHT BESTIMMT W 
ERDEN." 
280 IFABS(A(2)) >HXTHEN212 
2281 FRINT"&DAS ABSOLUTE MINIMUM LIEGT BE 
Ja 
282 PRINT"EFC"AE(Z2I")="A(2) 


19N Ran 
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283 IFFD=1THENFRINT#4:PRINT#4,"DAS ABSOL 
UTE MINIMUM LIEGT BEI FErAEL2ZII="A(Z) 
284 G0T0212 
285 REM 

286 PRINT"LIE 
FHEN" 

287 IFFD=1THENFRINT#4:PRINT#4," BE 
AECHE UNTER DEM GRAFHEN" 

288 FL=FL-K(1} 

289 Fi=(K(1)+K(321))/2 

2930 F2=(F1+FL)#N:F2=INT (100*F2+.5) 100 
291 FRINT"E A="F2 

292 IFFD=1THENFRINT#4:FRINT#4," A="F2 
293 60T0212 


FLAECHENBERECHNUNG 
FLAECHE UNTER DEM GRA 


294 REM ROTATIONSKOEPERBERECHNUNG 
295 PRINT"II VOLUMEN DES ROTATIDNSKO 
ERFERS" 

27& IFPD=1THENPRINT#4:FRINT#4," VOLU 


MEN DES ROTATIONSKOERFERS" 

297 RO=(RO-K(1)”72) /2+ (K (321) *2+K (1) 72) /4 
+{RVI 7/2 

298 RO=RO*r#N 

2997 RO=INT (R0*100+.5)/100 

300 PRINT"ER V="RO 

301 IFPD=1THENFRINT#4:FRINT#4," V="RD 
502 G60T0212 


303 REM SPEZIELLE FUNKTIONSWERTE 

304 FRINT"I& SFEZIELLE FUNKTIONSW 
ERTE" 

305 IFPD=1THENFRINT#4:PRINT#4," S 


PEZIELLE FUNKTIONWERTE" 

306 PRINT"®FUER WELCHEN PUNKT SOLL DER F 
UNKIONS-" 

307 INPUT"EWERT ERRECHNET WERDEN";A 

308 B=FNA (A) :EB=INT (1000*B+.5) 7/1000 

309 PRINT" F("A")="B 

310 IFFD=1THENPRINT#4: FRINT#4," F("A")=" 
B 

311 PRINT"ENOCH EINEN ?" 

312 GETD$: IFD$=""THENS12 

313 IFD$="N"THEN172 

314 FRINT"OOD":FORI=0T02:FRINTC$:NEXT:PR 
INT"IID":60T0306 

315 PRINT"®SIN DEM PUNKT"A"KANN KEIN FUNK 
TIONSWERT BESTIMMT WERDEN !" 

316 IFPD=1THENPRINT#4:PRINT"IN DEM PUNKT 
"A"KANN KEIN FUNKTIONSWERT BESTIMMT WERD 
EN ı" 

317 6010311 

Z18 IFY>ZOLORY<OORX<OORX>S1FTHENRETURN 
319 SY549629,Y,X/8,XAND255:5Y549744 ,2”PE 
EK (16722) : RETURN 

320 DATA149,32,133,252,169,0,133,251,169 
‚0,162,0,160,255,145,251,136,145,251 

321 DATA240,3,76,76,3,230,252,232,224,34 
‚240,3,76,72,3,169,4,133,252,169,1,162 
322 DATAO,160,255,145,251,136,145,251,24 
0,3,76,106,3,230,252,232,224,4,240,3 

323 DATA76,102,3,9& 

324 DATA169,32,133,252,169,0,133,251,160 
‚8,169,0,153,68,65,136,208,250,150 

325 DATAO,162,8,177,251,141,60,65,173,50 
‚65,74,141,60,65,144,9,189,68,65,24 

326 DATA105,128,157,68,65,202,208,235,17 


4,61,65,224,255,240,1,200,182,8,177 


327 DATA251,141,60,65,173,60,65,74,141,6 
0,65,144,9,189,68,65,24,105,64,157 

328 DATA&8,65,202,208,235,200,162,8,177, 
251,141,60,65,173,60,65,74,141,60,65 

329 DATA144,9,189,68,65,24,105,32,157,68 
‚65,202,208,235,174,61,65,224,255,240 
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Listing »Kurvendiskussion« (Ende) 


165,251,105,8,133,251,165,252,105,0 

350 DATA133,252,202,208,236,9& 

3551 DATA32,253,174,32,158,183,142,76,65, 
32,253,174,32,158,183,142,77,65,32 

352 DATA253,174,32,158,183,142,82,65,175 
‚76,65,41,248,141,78,65,169,40,141 

353 DATA79,65,32,99,194,173,76,65,41,7,2 
4,109,80,65,133,251,173,81,65,105,0 

354 DATA1SS,252,173,77,65,141,78,65,169, 
8,141,79,65,32,99,194,24 

355 DATA173,80,65,101,251,133,251,173,81 
‚65,101,252 

356 DATA133,252,24,165,252,105,32,133 
357 DATA252,173,82,65,41,7,141,82,65,169 
‚7,56,237,82,65,141,82,65,96,32,253 

358 DATA174,32,158,183,142,82,65,160,0,1 
77,251,13,82,65,145,251,96,169,0,141 

359 DATABO,65,141,81,65,162,9,24,202,110 
‚81,65,110,80,65,224,0,240,18,110,78 

360 DATA65,144,240,173,81,65,24,109,79,6 
5,141,81,65,76,110,194,96 


Auf dem VC 1526 erstellte Hardcopy 


Ladeprogramm »Kurvendiskussion« 

0 FOKE1LF00,0:FOFE15899 ,0:FOKE14895,0 

KEST,4:FOHE44, 46 
20 FRINT"LZENEW" 
30 FRINT"ERLIAD"CHRE (TA) "KURVENDBISKUSSIDO 
N"'CHRF+(34)" ,B" 
40 PRINT '"RRRBISRUNGG?” 
s0 FOKE&31,13:POKE8I32,13:POKEASF,13:POKE 
198,3 
350 DATA1,200,182,8,177,251,141,60,65,17 READY. 
5,60,65,74,141,60,45,144,79,1897,68,65 

351 DATA2Z4,105,16,157,68,65,202,208,235, 
200,162,8,177,251,141,60,65,173,60 

532 DATA85,74,141,60,65,144,7,189,48,65, 
24,105,8,157,68,65,202,208,235,174 
333 DATA81,65,224,255,240,1,200,1582,8,17 
7,251,141,680,65,173,60,65,74,141,60 
534 DATA6S,144,9,187,688,85,24,105,4,157, 
68,65,202,208,235,200,182,8,177,251 
335 DATA141,680,65,173,50,65,74,141,&0,65 
‚144,9,187,658,55,24,105,2,157,68,65 





terval grenze 


linke In Puallgrenze 


356 DATA202,208,235,174,61,65,224,255,24 nechte Interväl Aue 
0,1,200,162,8,177,251,141,60,65,173 Einheiten a y-Achse 

237 DATA&O,65,74,141,60,65,144,9,189,68, Einheiten deT ea 
65,24,105,1,157,68,65,202,208,235,24 Funktion®” , orucker Ja Richtung? 
358 DATA165,251,105,8,133,251,165,252,10 Ausdruck | aroessert IN T 2 ichtung? 
5,0,133,252,174,61,65,224,255,240,3 Ausdruch Vergroensert ! 

339 DATA76,141,193,174,62,65,224,255,240 ausdek ar y-uert 
‚11,169,0,133,253,133,254,169,255,141 Hoech@  y-achse 

340 DATA62,65,24,165,255,105,8,133,253,1 LASS ie x-Achse 
65,254,105,0,133,254,166,253,224,64 192 erte 


Funkt jonsW 


zellen 
Nulls Extremwert® nmum? 


341 DATA208,58,166,254,224,1,208,52,56,1 
65,251,233,60,133,251,165,252,233,1 


ive Mi 
342 DATA1SS,252,169,0,133,253,153, 254,17 ee max imam SORT 
4,63,65,224,255,208,21,169,0,141,63 Ansolute Extremue 
343 DATA&S,24,165,251,105,56,133,251,165 Maximum 
‚292,105,1,153,252,76,141,193,169, 255 Min imu sw 


344 DATA141,63,65 


345 DATA160,8,136,185,69,65,201,0,208,10 Anfang des Gr#f Graphen 
‚192,0,208,244,169,255,141,65,65,9& Fiaeche unt@l  tionskoerPef®  Djen 
346 DATA169,0,141,65,65,9& volumen des | und Wiesen-VAr 

347 DATA162,25,173,64,65,1680,8,136,145,2 s wie melde an 
51,208,251,24,165,251,105,64,153,251 A,Bicıne = Schleifenvarı 

348 DATA165,252,105,1,133,252,202,208,23 Bene Funktionster 


0,96 
349 DATA162,40,160,0,169,255,145,251,24, 
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Sicher kennen Sie die Rätsel, bei 
denen man aus einem Buchstabensalat 
bestimmte Wörter heraussuchen muß. 
Dies ist nicht immer einfach, zumal die 
Wörter auch rückwärts oder diagonal 
angeordnet sein können. Solche Rätsel 
können Sie nun mit dem VC 20 selbst 


erstellen. 


Das Programm Rätsel 
bringt 440 Buchstaben bunt 
durcheinander auf den Bild- 
schirm. In diesem Buchsta- 
bensalat sind Wörter ver- 
steckt, deren Anzahl zuvor 
bestimmt werden kann (Zei- 
le 35). 

Die Suche ist nicht ein- 
fach, weil die Wörter zufäl- 
lig verteilt (Zeile 130) kreuz 
und quer, diagonal und zum 
Teil auch rückwärts ge- 
schrieben werden (Zeilen 
100 bis 120 drehen dafür et- 
wa jedes vierte Wort 


Richtig gefundene Wörter 
werden im Buchstabensalat 
schwarz gedruckt. Wer vor 
der Aufgabe kanpituliert, 
kann sich mit der Taste x die 
Lösung zeigen lassen. 

Das Programm schreibt 
die zu versteckenden Wör- 
ter zuerst in das Feld F$ 
(22,20). Zugleich wird im 
Feld FF$ (22,20) registriert, 
welche Zeichen belegt sind. 

Der Programmlauf wird 
im übrigen aus den einge- 
fügten REM-Zeilen ver- 
ständlich. 


herum). (Jürgen Curdt) 


" REM"s"=CLEAR HOME "S"=CORSOR HOME 

2 REM"a"CURSOR HOCH "Q"=CURSOR RUNTER 
3 REM" 1" =CURSOR RECHTS "a"=CURSOR LINKS 
4 REM "ep" =SCHWARZ "E"=WEISS "£"=ROT 

18 REM WOERTERSUCHE IM BUCHSTABENSALAT 
i5 REM JUERGEN CURDT ‚„KESSEMEIERWEG 5,493 
DETMOLD,TEL 67264 

28 POKE36879 ,93: PRINT" sE";:FORI=8T0439:P 
RINTCHR$CRNDE1 3%X26+65 9; : NEXT 

25 PRINT"SPIQCOHLL1IVERSTECKE1QFRAUGAFGAR 
Ba”: PRINT" JaagaaDICHIIKREUZZIUNDag aaaanaaın 
SLBIAUODAR” 

38 PRINT"WOERTERLAQUICOR": PRINT"QOQQI III 
1DalaAsGadaNafal 

35 PRINT" ZAHL DER VERSTECKTEN WOERTER 
(2-28 3" ;: INPUTK$ 

ag POKEI28B, VALCRIGHT$CK$,2)) 

45 K=PEEKL1888 ):DIMF$C22,28):DIMFF%C22,2 
2 ):DIMN$CK+1 ):DIMNU$C22)I 

58 FORI=1TOK+1:N$CIJI="Q"TNEXT 

55 LE$="SOLIALHAAIGGAAGAIAGAG. 

agq' 


68 PRINTLE$"QQ. BITTE ETWAS WARTEN IS”; 
65 REM EINSPRUNG IN DIE WOERTERLISTE 

78 FORI=BTOINTERNDE1 )%58 I: READN$: IFN$="X% 
*X" THENRESTORE: GDTO?B 

75 NEXT 

88 REM WOERTER WAEHLEN - N$ -— UND IN DAS 





kan 


FELD -N$,%,Y- SCHREIBEN 

85 KL=KL+1 

98 IFKL>KTHENSZB 

95 FORI=8TOINTLRNDLI IXS J: READN$: IFN$="*%* 
x" THENRESTORE: GOTOIS 

188 NEXT:N$CKL I=N$:LN=LENCN$ I): ONINTERNDE 
1 3%x4+1 JGOT0118,139:G0OT0138 

185 REM WORT HERUMDREHEN 

118 FORI=1ITOLN:NU$CT J=MIDSCN® ,I,1): NEXT 
115 N$="" 

i28 FORI=LNTOISTEP-1:N$=N$+NVU$CI)J: NEXT 
125 REM WAAGERECHT ‚SENKRECHT ODER DIAGON 
AL 

138 ONINTERNDC1 )x6+1 JGOTO 135,210,285,36 
5,248 ,488 

135 REM SPALTEN ABU. 

i48 I=INTCRNDLCI )X22):J=8 

145 IFF$C1,J)9=" "ANDJ<19ITHENJ=J+1:G0T0O145 
158 IFJ=>LNTHEND=J-LN: AN=INTCRNDLI)JXDI:G 
OT0195 

155 REM KREUZUNG SUCHEN 

168 L=1:V1$=F$C1,J) 

165 V2$=MID$CN$ ,L,1): IFU1$SIVU2$THENL=L+1 
:60T0175 

178 Ji=J+1:6G0T0185 

175 IFL<LNTHEN165 

188 GOTOSS 


185 IFF$CI,JLI=S""ANDJIL<ISTHENJ1=J1+1:GOT 


0185 

198 AN=J-L+1: IFAN<BORJ 1 -AN<LNTHENIS 

195 FORJ=ANTOAN+LN-1 

288 F$CI,J)J=MID$CN®,CJ-ANI+I,1)I:FFACI,J) 
=KL: NEXT 

285 GOTO88 


218 REM SPALTEN AUFU. 


215 I=INTCRNDC1)X22):J=19 
228 IFF$CI,J)=""ANDJISBTHENJ=J-1:60T0228 
225 IF19-J>=LNTHEND=28-J-LN:AN=INTERNDEI 


J&D JtJ+1:GOT0278 

238 REM KREUZUNG SUCHEN 

235 L=1:V1$=F$C1,J) 

248 U2$=MID$CN$,L,1): IFUIS<DU2$THENL=Sc+1 
: G0T0258 

245 Ji=J-1:60T0268 

258 IFL<LNTHEN248 
255 GOTO9I5 

268 IFFSCI1,J1JI="" 
268 

265 AN=J-L+1: IFAN<BORAN+LNI>1IORJ-JI<LTHE 
NIS 

278 FORJ=ANTOAN+LN-1 

275 F$CI,JI=MIDSCNS ,CJI-ANIHI „1 
=KL: NEXT 

238 GOTOSE 

2853 REM ZEILEN N.R. 

238 .J=INTERNDLI )X19):T=9 

295 IFF$ET,JI=""ANDI<21ITHENI=1+1:6G0T0295 
388 IFI=>LNTHEND=I-LN: AN=INTERNDC1)XD)J:G 
OTI3SQ 

385 REM KREUZUNG SUCHEN 

318 L=1:Vi$=F$C1,)J) 
315 V2$&=MID$CN$,L,1): 
: G60OT0325 

328 GOTO335 

325 IFL<LNTHEN315 
338 GOTOIS 

335 11=1+1 

349 IFF$CI1,JI="" 
0348 


ANDJI>DBTHENJ1=J1-1:G0TO 


J);FFACT,J) 


IFUI1SSIVU2STHENL=L_+1 


ANDII<Z1ITHENI1=I1+1:GOT 
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345 AN=I-L+1: IFAN<BORTI-AN<LNTHENIS 695 Rer+l 
358 FORI=ANTOAN+LN-I .618 REM GEFUNDENES WORT SCHWARZ SCHREIBE 
355 FSCI,JISMIDSCNS,CI-ANM+LÄIIFFALT,JI N 

=KL: NEXT 615 PRINT”S"; :FORJ=@T019: FORI =@T021 

368 607088 628 IFFFArI,JI=KLTHENPRINTF$CIT ,J)5 -GOTOG 
365 REM ZEILEN N.L. 38 

378 J=INTECRNDEC1)X28): T=21 625 PRINT"1Y; 


375 IFF$CI,J)=""ANDI>BTHENI=I-1:60T0375 638 NEXTI .J: IFR=KTHEN845 
389 IF21-I>=LNTHEND=22-I-LN:AN=INTERNDLl 635 PRINTLE$: PRINTR+1; "a. WORT?S": 


)xD J+I+1: 6010425 648 N$CKLJ="". 60T0555 

385 REM KREUZUNG SUCHEN 645 PRINTLE$S" xxx FEIN GEMACHT xxx 

398 ERI1SUISFELET ,3) NEUES SPIEL DI 

395 V2$=MID$CN$ ‚L,19: IFULSCDU2STHENL=L+1 659 POKEISS.B:HAITISS 1 

» 6070485 668 PRINTLE$; :RUN4S 

488 J1=1-1:6070415 665 REM LOESUNG GEBEN 

“85 IFL<LNTHEN33S 678 PRINT"Sp"::FORJ=BTO19: FORI=8T021 

“18 GOTO3S 675 IFFF#CI .JI>@THENPRINTF$CI,J 35 :GOTO6 85 
415 IFF$CJ1,JI=""ANDJLIOTHENJ1=J1-1:60T0 688 PRINT": 

“15 685 NEXTI ‚J 

428 AN=I-L+1: IFAN<BORAN+LNIZIORI-JI<LTHE 698 PRINT" NEUES SPIEL ? TASTE D 
N95 RUECKEN 3"; 

425 FORI=ANTORAN+LN-1 6935 60T9658 

438 F$CI,JISMIDSCNS,CI-ANI+HI,LIEFFACI,JI 289 DATAREGENWURM ‚UEBERFLUSS ‚VORGARTEN ‚A 
=KL: NEXT PFELSAFT „FEUERWEHR ‚MORGENSTERN ‚ABENDROT 
435 607080 785 DATAAFFENHAUS ‚POLTERGEIST ‚LOGISCH ‚DO 
448 REM DIAG.LU-RO RFPLATZ ‚GASTHAUS ‚STEINKOHLE ‚REGENSCHIRM 
445 J=INTERNDC1 IXCII-LN I I+LNSAN=INTERNDL 

19xC23-LN)):J2=J: 12=AN READY. 

459 IFJZIBANDI2<22ANDFSCI2.I29=""THENJ2= ggg DATa'xx“ 

Verl: 12=T2r1 ECO T0R58 iB1® REM ZWISCHEN 788 UND 999 KOENNEN BE 
ER LIEBIGE WOERTER EINGEFUEGT WERDEN 


a68B FORI=ANTOAN+LN-1 

SOFT ES READY. 

478 NEXT »Rä 

475 GOTO8®O Listing des Programms »Rätsel« 

488 REM DIAG.LO-RU 

485 J=INTERNDCI IXL28-LNI)I-AN=INTERNDCI IX 
t23-LN)): J2=J:- T2=AN 

a9B IFJ2<2BANDI2<2Z2ANDF$SLCI2,J2)=""THENJ2 
=J2+1: 12=12+1: GOT0498 

4935 IFJ2-J<LNTHFN285 

388 FORI=NNTONN+LN 1 

585 F&CI,J)J=MID$CNS ,T-AN+1,1 I: FFZCTI,J)I=K 

L+J=J+1 

518 NEXT 

515 GOTO88 

528 REM RAETSEL AUSGEBEN 

525 PRINT"SE":: FORJ=BTO1I:FORI =9T021 

538 IFF$CI,JI=""THENFSCIT,JI=CHRSCRNDLI IX 
26+65 ) 

535 PRINTFSCI,J) 

548 NEXTI,J 

545 REM EINGABE ABLARTEN 

558 PRINTLE$"”Q. ESUCHE"K"WOERTER UND 
TIPPE SIE EIN!S"::POKEII3,8 

555 EIs="":WAIT198,1:PRINTLE$S 

568 GETE$: IFE$S=""THENS6® 

565 IFE$S=CHRSLCISITHENSSS 

578 IFE$="x" THENS6S 

575 IFE$=CHRSL2B ITHENEIS=LEFT$SCEIS ,LENCE 
1% )-1 )>PRINT" a a: :GOTOS6B 

588 EI$=EIs+ES: PRINTE$; :GOTOS6B 

585 FORKL=1ITOK: TFEIS<>N$SCKL ITHENNEXT: GOT 





DADDEMAD DD NM DIWNST DILL O 
UOOoOorXR mM—-T-H4OSOrTr WTTWWONXRDN 
<ZrPNZNOCc-RL.HVDoOoDODOc-o zoom n 
AUONODOONZNTITM-LDIEHZXDDCT 
cr mzxkrRaınZzEwnwmZpoccHhH oo R 
TIITEOMNDIENATDTDUD TUADS 
DIENEN TE ZZ DA II ZIE OO TE 
- VWEORDIVWVDCWDOIZMZM-HWDOnNnE 
<NTZDODO< DO TEXDI DZ HAID cc Zn 
RIDEDO<ATICHOA<K OD 
or z--m-MOVONNDWZINZTRAT 
MN UIMTOSCBHAMEN NSS ZUR FR:O 
cz WODTIARNIRTRTNIMAXKXTIMRIHTZR 
nz -ıc. zz um zo zoom rm 
QI-DUVT-HTMOr AHV Oo Z- O<< 
OMONcCcCNMITITHIODRNHMECSHO 
OINARNCZOORIIZN<--HDANNTDO 
DHAX<-NOZOHMRIL-UTCWMWOTD 
nv. NnXV--ArmoccmzznD 
IZEIDME<DOIEFRANTREWSTH 


DIAMANT KNICKER ZWERCHFELL 
WESTEN FERKEL SAUBOHNE 
TINTENFISCH TISCHLER ACHAT 
SCHREIBHEFT KANINCHEN HERBSTILAUB 
LIBELLE TRABER MESSER 





0595 ee 
598 GOTO6GBS LEUCHTER 
595 PRINTLE$: PRINT” LEIDER NICHT RICHTIG WOERTERSUCHE IM BUCHSTABENSALAT 
DESUNG. a a 
620 e T0OSSS Hardcopy des Bildschirms als Beispiel. Die unten stehenden Wörter sind im Salat 


versteckt, versuchen Sie diese zu finden. 
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Dieses Spiel zeigt die 
- die bereits in der Grundve 
VC 20 stecken. Obwohl vonden 
Farbgrafik- und Soundmöglichkeiten Ä 
ausgiebig Gebrauch gemacht wird, 
benötigt das BrOU DI nur 


'eindliche Weltraumschif- 
I fe greifen die Erde an! Sie 

haben in diesem Spiel die 
Aufgabe, die Invasion abzu- 
wehren. Dazu besitzen Sie 
ein Raumschiff, den »Crous- 
saider«, das über der Erde 
schwebt. Unterihmliegteine 
moderne Stadt mit Hochhäu- 
sern, Fabriken und einem 
Atomkraftwerk. Am oberen 
Rand des Bildschirms er- 
scheinen die Angreifer, de- 
ren Ziel esist, in der Stadt zu 
landen und sie zu zerstören. 


Ein 
Action-Spiel 
für den 

VG 20 


1 REM CROUSSAIDER 


IP 


REM 


1A FÜRA=STOIES:RERDE:FOKES Eö+f, 








Sie bewegen sich rasch auf 
die Stadt zu, so daß schnelle 
Reaktionen erforderlich 
sind, um eine Landung zu 
verhindern. 

Hat man es geschafft, den 
Ängreifern eine bestimmte 
Zeit zu widerstehen, er- 
scheint eine neue, gefährli- 
chere Welle von Invasoren 
mit anderem Aussehen. 

Wenn man fünf verschie- 
dene AÄngriffswellen über- 
steht, erscheint wieder die 
erste, mit dem Unterschied, 
daß die Ängreiferzahl steigt. 
So ist immer für Abwechs- 
lung und Spannung gesorgt. 

Der fortgeschrittene Spie- 
ler, dem das Spiel zu einfach 
ist, kann den Wert der Varia- 
blen Y in Zeile 10 ver- 
mindern. 

Um das Spiel zu beschleu- 
nigen, wurden einige Routi- 
nen in Maschinensprache 
geschrieben. Die erreichte 
Punktzahl wird ständig ange- 
zeigt, und eine »High-Scorer- 
Funktion hält das jeweils be- 
ste Ergebnis fest. 

Doch damit genug.der Vor- 
rede. Tippen Sie doch jetzt 
einfach das Listing ab und 
versuchen Sie, die Invasion 
zu verhindern ... 


(Eberhard Aust) 


12 FÜR. J=8T015 Sa: RERIE:FÜKE?ISS+ 
19 5373, 3: PRINT" TIeleleieeN" © Fi= = 
30 POKE25869, 255: POKE36878, 15: POK 13,0: v=10:N=36876:LI=19: IFOR=OTHE 
Nas 
:PRINT"M ";:HEKT:PRINT" MM 


75 FÜRRR=SATOA 


59 PRINT" SIeleInleleleietetelstetstainteistninteteg LOL an PoeomLL PLL 








2a PRINT DE DESREESSETENNEINDIEINI LEE 2 FOKE?ESG+ a5, 14: FOKESS4GA+SRS 

=1 POKER-1.2:FÜKER. 1A: FOEER+1, 1 A 

15 E= FEEK(ST1S12: FOHES?1I4, 127: F= PEEKEa? : POKE3T 134,255: 

KEH.,S+I 

> IFLERNDLS}=ARNIAFETHENFOKER+1 22: FOKER, 32: A=A-I: FOKER-1,3: 
:FOHEN.FR 

1es IFCFAHLLZENSAANDRÖTTHENFOKER-1,32: POKER: 22: A=A+b:FÜKER+1, 
2:FOKEN,T 


-\ 


a SENT KRBEHHREEHRARERHERBRA ERRHLAAHLANARNLANN HAMA ATTTTITTERNTG 


nl Ä 


LLLFLLLRAMERÖLORMLLLULLLLL 


I=INTEENDEIIKEIF+L: PO 
POKER. 19:FOKER+1: 1 


11:POKER. 10: POREA-1 


Listing »Croussaider» 


Hi | |) 





























I 


| 
N 








SAIDER 








125 POKEIESTY.2-575903: IFCERNHDSZI=OTHENFOKERA-22.5:F 
111 IFINTSENDEL?#FISSTHENI=SINTERNDEI1I#1434+7725:POKE 
124 573323: 373923+31 IFPEERGFASZIZFSTHENGOSURZEG 
121 IFFEEK(7433°ZPATHENHGOTOESE 

127 W=lUl+1: IFUSLTHEHSTSTHIR: IFTIFZBSOTHENGOSUEZEG 
123 FRINT"S9"52: IFU=SZTHENSFSC74E12 :U=8 

122 5753292:G0T0109 


„ese+)D 


DEESSETT 
I-1,I:FOKET,KSPOKEI+I1,L 


24 FORH=STO1F:FOKE35379. INTERHDEIIF2I53:NEHT:FORE36372,9 
251 H=PEEK (7432? :FOKE36377 INTERNDEI 3Ha@)+128 : FOKEFASE, ES: IFH=STHENSE=SSCHLE:RETUR 


H 

za2 IFH=ZOEH=4ITHENSE=SSCHSERETUÜRH 

283 IFH=3THENSCHSCHINTERNDEI FI ZER RETUFN 

2204 IFH=STHENSC=SZEHTI:RETUEH 

255 IFH=1THENSC=SSC+HZU RETURN 

206 RETURN 

259 FEINT" AUTRIRISIRISIRTSTRTSTMTEINTNTEE i m SU SSL: 
252 FOKEN.M:FOKEN+L, 125: FORU=1ST0@STER-1 FOREN+Z,U: FOR 
>#1257:NEAT:HEAT 

era IFSCHHITHEHHISSEC 

258 POKE3S373. 2: FRINT'ABRBRABBRBIA3" HL: PRIHT"SERREREBBBICROLSSAIDERFTENERENREEE. 
AUST" 

251 GETAF:RAN=1:IFAz=""THENZS1 

252 GOTO12 

3ag TI$="309008" : H=i+1:5= 


SSSEHISRDOSOEMS3EF3L35"; 
NEATDIR: FOKEN+3,: INTCEHDTI 


an 
{er} 
[6 me 


Ba 


29+4#3:R=3-19:T=3+19: IFAS6THENF=F-1 CH=1: IFTSSTHENF=3 












SE 5 

s1a IF#=1THENI=S32:K=1:L= Z=4 RETURN 

311 IFs=ZTHENI=B:K=32:L=9:Z=r: RETURN 

312 IFA=3THENI=2:K=3:L=47 2=T$2 RETURN 

313 IFS=4THENHI=1:K=9:L=1°2=7#1.5:RETURH 

314 IF&=STHENT=2:K=3:1.=4:2=%%#1.5:RETÜRN 

12949 DATAISE: 222: 159,08, 21, 221,2,19, 9.197. 22,312 1652: 32.197,29, 31: 224:0: 240,4, 202,7 


5,52,3 
1941: DATA1524 2331133, 22, 38, 2015 2,1533. 137,447 30, 159 32 137 7 22, 30, 224, 0240, 4,202 


=> 0 m 
‚5,87 :3 


1042 DATR2S.152,9.,152,.154,21.2021,9,48:9, 224,43, 240,4,232, 765.113.2. 98,142, 8, 29, FE 
‚124,3 
1aa3 IATA1IS2.4.129,22,29,201,5 1,2,15,3:141.9:29,192:197,8 












‚za 

1ac4 DATA1SF,32, 

1906 

1297 

1205 ‚9; 

1943 AlSa, 12 

1212 DATRISF,. 182 : 
1122 DATASA.12S5 Zu 
1121 DATA123.123,221,.199,.292 
52,63 

1102 DATHEIST: ss 52200043 
114 IATR2SI, 1652: 127,3 
1145 IATA2SI.159, 290. 169, 
3,200 

1106 IATA2II. 239,09, 128 
1127 DATA... 2128,68 
REHLI'T 


# 1 ’W “ 
ri 


{FTTıTT9 | h | SEO 
SEHHHAHIN SMERLNIHLILIMHHIT ! MN N ii | mm I | II 


Ir} i 


C 64/VG 20 


Tips & Tricks 








er SYS-Befehl hat folgen- 
des Format: 

SYS <Adreßausdruck> 

I, <Parameterausdrücke>] 

SYS ruft das Maschinen- 
sprachprogramm auf, das 
bei »Adreßausdruck« lo- 
gisch beginnt. »Ädreßaus- 
druck« steht für eine RAM- 
Adresse im Bereich von Obis 
65535. 

Die wahlweise anzugeben- 
den Übergabeparameter 
werden nicht von SYS bear- 
beitet, vielmehr müssen die- 
se Ängaben in geeigneter 
Weise vom aufgerufenen 
Maschinenprogramm aus- 
gewertet werden. Hierzu 
sind natürlich genauere 
Kenntnisse in Assembler- 
Programmierung erforder- 
lich, 
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Mehr über SYS 


Der SYS-Befehl beim C 64 und VC 20 
leistet wesentlich mehr, als das 
Commodore-Handbuch zugeben will. 
Er bietet zum Beispiel eine einfache 
Möglichkeit, Parameter an Maschinen- 
programme zu übergeben. 


Es kann jedoch eine ande- 
re Übergabeform gewählt 
werden, auch wenn dies im 
VC  20-Programmierhand- 
buch verschwiegen und im 
Handbuch das Gegenteil 
behauptet wird, 

Diese Form der Parame- 
ter-Übergabe besteht darin, 
Akkumulator, X- und Y-Regi- 
ster sowie den Prozessorsta- 
tus vorzugeben. 

Wie soll das vom Basic aus 
geschehen? Wenn nicht di- 


rekt, dann eben über die 
Speicherstellen, die SYS als 
oben genannte Register auf- 
nimmt, bevor ins Maschinen- 
programm verzweigt wird, 
und in die SYS nach Rück- 
kehr (RTS) aus dem Maschi- 
nenprogramm die aktuellen 
Registerinhalte ablegt. 

Es gibt also eine Kommuni- 
kationsmöglichkeit mit dem 
Maschinenprogramm vor 
und nach der Abarbeitung, 
sie muß nur genutzt werden. 

Die vier Speicherbytes 
nach Bild 1 sind die Schnitt- 
stellen zu den Prozessor- 
Registern. 













Der Prozessor-Status wird 
dabei durch das Flag- 
Register dargestellt. Die Be- 
deutung der einzelnen Bits 
im Flag-Register geht aus 
Bild 2 hervor. 

Hier nun eine Anwendung 
der Kommunikation mit 
Maschinen-Unterprogram- 

men. 

Die Betriebssystem-Routi- 
ne»Plot«soll genutzt werden, 
um den Qursor auf eine be- 
stimmte Position zu setzen, 
abderdanneine Ein-/Ausga- 
be erfolgen kann, bezie- 
hungsweise es soll abge- 
fragt werden, wo sich der 
Cursor gerade befindet, wo 
also die nächste Ein-/Ausga- 
be erfolgen würde. 

Bild 3 zeigt das kleine 
Beispiel-Listing. In den Zei- 
len 100 bis 150 wird der Cur- 
sor auf Zeile 10, Spalte 5 ge- 
setzt. Anschließend wird zur 
Demonstration ein kleiner 
Text ausgedruckt und in den 
Zeilen 200 bis 260 die aktuel- 
le Cursorposition gelesen. 

(Rolf Zweifel) 
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Kopierprogramm 
für relative Files 


ach dem Starten des 
Programms erfolgen zu- 
nächst einige Abfragen: 

l. Sind alle Erweiterungen 
ausgeschaltet? Damit ist zum 
Beispiel DOS 5.1 oder Si- 
mons Basic gemeint. Wird 
die Frage mit ja beantwortet, 
so steht der gesamte freie 
RAM (zirka 60 KByte) als Puf- 
fer zum Kopieren zur Verfü- 
gung. Ändernfalls wird die 
Pufferobergrenze auf $ 8000 
(32768) gesetzt, so daß zirka 
28 KByte zur Verfügung ste- 
hen. Inbeiden Fällen können 
jedoch beliebig große Files 
kopiert werden. 

2. Angabe der Gerätenum- 
mer und der Drivenummer 
von Ausgangslaufwerk und 
Ziellaufwerk. Zulässig sind 
die Gerätenummern 8 und 9 
sowie die Drivenummern 0 
und 1, bei anderen Num- 
mern erscheint eine Fehler- 
meldung. Es wird die Gerä- 
tenummer 8 und die Drive- 
nummer 0 auf dem Bild- 
schirm vorgegeben, so daß 
bei Verwendung eines 
VC-154l-Laufwerks nur vier 
mal RETURN gedrückt wer- 
den muß. 

3. Angabe des Filenamen 
der zu kopierenden relati- 
ven Datei. Beim Filenamen 
für dasneue File wird der al- 
te Filenamen vorgegeben, 
er kann natürlich mit den üb- 
lichen Tasten geändert wer- 
den. 

4. Eingabe der maximalen 
Satzlänge des neuen Files. 
(Zulässig ist 1 bis 254). Sie 
muß nicht notwendigerwei- 
se mit der Satzlänge des al- 
ten Files übereinstimmen, 
sollte aber so lang sein wie 
der längste Satzimalten File. 
Andernfalls kommt es zu Da- 
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Listing. Kopieren 
von relativen 
Files 
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tenverlust. Aus Geschwin- 
digkeitsgründen wird übri- 
gens der Fehlerkanal wäh- 
rend desKopierens nicht ab- 
gefragt, so daß der Fehler 
»overflow in record« nicht er- 
kannt wird! 

Nachdem alle Eingaben 
erledigt sind, beginnt das 
Kopieren. Das Programm 
gibt jeweils auf dem Bild- 
A schirm an, welche Diskette 
= einzulegen ist, bei Disketten- 
“ wechsel und am Programm- 
ende wird zusätzlich ein Ton- 














»& tergeht. Beim Ärbeiten mit 
zwei Laufwerken odereinem 
Doppellaufwerk sowie beim 
Kopieren aufdie gleiche Dis- 
kette kann die SHIFT-LOCK- 
Taste eingerastet werden, 
sobald alle benötigten Dis- 
ketten im richtigen Laufwerk 
liegen. Es wird dann ohne 
Pause kopiert. 

Ist das Kopieren beendet, 
startet das Programm von 
vorn. Es kann abgebrochen 
werden, indem als Geräte- 
nummer »q« eingegeben 
wird. Der Rechner meldet 
sich dann wieder mit »REA- 
DY« im Basic-Modus. Übri- 
gensist während des gesam- 
ten Kopierens (ab Eingabe 
der ersten Gerätenummer) 
die Stoptaste funktionsfähig. 
Wird sie gedrückt, so wer- 
den die offenen Files ge- 
schlossen und das Pro- 
gramm startet von vorn. Da 
während des Kopierens der 
augenblicklich kopierte Satz 
auf dem Bildschirm ange- 
zeigt wird, ist es damit auch 
möglich, ein File nur teilwei- 
se zu kopieren. Esistnormal, 
daß beim Schreiben die er- 
ste Satznummer erst nach 
längerer Zeit erscheint, da 
die Floppy das File zuerst 
einmal einrichten muß. 

Folgende Fehlermeldun- 
gen werden vom Programm 
ausgegeben: ?? falsches 
Laufwerk oder Drive ??: Ge- 
rätenummer ungleich 8oder 
9 beziehungsweise Drive- 
nummer ungleich 0 oder | 
?? Unzulässige Satzlänge ??: 
Satzlänge größer 254 oder 
kleiner | 


EREE 037, 103 32, 27° 2? Gerät nicht bereit ??: Das 
n.282 3 aD ZB rien 11-307 95,” ?? Gerät nic 
ra 208 pata= 13,32 232 er zu 410 angesprochene Laufwerk ist 
Fe Forset ng) : \az.re0 16,09 ‚e na24r> Ing gLoch Eee nicht eingeschaltet oder an- 
sl ung 9. ® atat De 72,°% YoRlerS >17 ‚g8sz geschlossen. 
‚sed _ 07 za REN, 29,200 Abbruch !: Die Stoptaste 
i Er Dat nn Sad.dı2 wurde gedrückt. 
15 TAASı“ 
oa 
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Zusätzlich werden Fehler- 
meldungen der Floppy aus- 
gegeben, falls sie auftreten 
(Außer RECORD NOT PRE- 
SENT). FILE TOO LARGE 
bedeutet, daß kein Platz 
mehr auf der Diskette ist. 


Arbeitsweise des Programms: 
Die Abfrage der Stoptaste 
BR geschieht mit Hilfe der Inter- E 
ee ruptroutine des Rechners, 3 
die 60 mal pro Sekunde & 







2» matisch die Tastatur abfragt. $ 

SG In diese Interruptroutine X 
= wird eine zusätzliche Routine 
# eingebunden, welche die Ei 
“Stoptaste abfragt. Ist die BSR 
34 Stoptaste gedrückt, so wird & 
zuerst ein eventuelles Ton- 
signalausgeschaltetundalle 
Files werden geschlossen. 
Außerdem wird der Stack- 
pointer zurückgesetzt, da 
der Abbruch ja in jeder Un- 
terprogrammebene _ erfol- 
gen kann. Danach erfolgt ein 
Neustart. Als Zwischenspei- 
cher für die Filenamen wird 
der Kassettenpufter, als Är- 
beitsbereich der Speicher 
für Sprite 1] (ab Adresse 704) 
verwendet. Die Sätze des Fi- 
les werden in kompakter, se- 
quentieller Form im RAM 
des Rechners unterge- 
bracht. Es wird zunächst die 
aktuelle Satzlänge +1 ge- 
speichert und danach die 
Bytes des Satzes. Dadurch 
nehmen kurze Sätze auch 
nur wenig Platz im RAM ein 
(während sie auf der Disket- 
te den gesamten Platz ent- 
sprechend der maximalen 
Satzlänge des Files bele- 
gen). 





Eingabe des Programms: 

Der Basic-Lader bildet 
nach jeweils fünf DATA- 
Zeilen eine Prüfsumme, so 
daß nahezu alle Eingabefeh- 
ler erkannt werden. Nichter- 
kannt werden vergessene 
Nullen und überschüssige 
Kommata. Wenn alle Prüf- 
summen korrekt sind, for- 
dertder LaderzumEinlegen 
einer Diskette auf. Das Pro- 
grammfile »rel kopierer« 
wird danndirektaufDiskette 
erzeugt. Das erzeugte Pro- 
gramm kann dann wie ein 





Listing. Kopieren 


Fils at) Basicprogramm geladen, 
kopiert und mit RUN gestar- 
tet werden, 


(Bernward Bretthauer) 
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Einen verblüffenden List- 
schutz für einzelne Zeilen er- 
hält man, indem man an die 
eigentliche Programmzeile 
einen REM-Befehl anhängt 
und dahinter in Änführungs- 
zeichen eine Reihe reverser 
Ik gefolgt von einem Dop- 
pelpunkt und einem beliebi- 
gen Text schreibt. 

Geben Sie doch einmal fol- 
gendes ein: 

10 PRINT"BAUM":REM'"[19 
reverse T}":10 PRINT "BLU- 
ME" 

Wenn Sie dieses kleine 
Programm starten, schreibt 
der Computer »Baum«, listen 
Sie aber das Programm, so 
sehen Sie nur die Zeile 10 
PRINT"BLUME'". 

(Roger Limberg) 





Die Ausgabe eines Frage- 


zeichens beim INPUT-Befehl 
kann durch Öffnen einer Ta- 
staturdatei unterdrückt wer- 
den: 

10 OPEN 1,0: REM Tastatur- 
datei eröffnen 

20 INPUT #1,a$ : REM Einle- 
sen von Tastatur ohne Frage- 
zeichen 

30 REM Nicht vergessen, die 
Datei mit CLOSE | wieder zu 
schließen 





POKE 775,200 Listschutz ein 
POKE 775,167 Listschutz 
aus 
POKE 788,49 Run/Stop ein 
POKE 788,52 Run/Stop aus 
POKE 808,237 Run/Stop- 
Restore ein 
POKE 808,225 Run/Stop- 
Restore aus 
POKE 650,128 Dauerfunk- 
tion für alle 
Tasten 
Dauerfunk- 
tion nur für 
Space und 
Cursortasten 
POKE 650,64 Dauerfunk- 
tion aus für 
alle Tasten 


POKE 650,0 


ana 
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Zahlenkonvertierungen 
von Dezimal nach Hexadezi- 
mal braucht man recht häu- 
fig. Hier sind zwei Einzeiler 
zu diesem Thema: 


— Hex X$ nach dezimal X:10 
x=0:fori=1tolen(x$): 

x0=asc (mid$(x$,i,1)):x=16*x 
+x0-48+(x0>64)*7: next 


— Dezimal X nach hex X$:10 
x$=""fori=1t04:x0=x/16: 
x=x-int(x0)*16:x$=chr$ 
(48+x-(x>I9)*7 +x$:x= 
x0:next 





Beim Commodore 64 las- 
sen sich alle Joystick-Funk- 
tionen auch über die Tasta- 
tur steuern. Hier eine Liste 
der entsprechenden Tasten: 


Joystick Port 1 

Feuer = SPACE 

Links = CTRL 

Rechts = »2« 

Oben = »l« 

Unten = »<« 

Joystick Port 2 

Feuer = CTRL + »J« 

Links = CTRL + »D« 

Rechts = CTRL + »G« 

Oben = CTRL + CRSR 
RIGHT 


Unten = CTRL + »A« 
(Gunther Knöpfle) 





Läßt man ein Programm 
aufdem Bildschirm auflisten, 
so läuft es in Sekunden- 
schnelle durch. Mit dem Be- 
fehl POKE 37877,0 werden 
nun alle Funktionen des VC 
20 extrem verlangsamt, und 
man kann sich so ein Pro- 
gramm in Ruhe ansehen. 
Durch Drücken einer belie- 
bigen Taste wird das Listen 
noch weiter verlangsamtund 
mit der RUN/STOP-Taste so 
lange angehalten, wie man 
die Taste gedrückt hält. 

Man kann den Befehl auch 
innerhalb eines Programms 
anwenden um, zum Beispiel 
während der Testphase, be- 
stimmte Abschnitte sehr 


langsam und somit nachvoll- 

ziehbar ablaufen zu lassen. 
Mit POKE 37877,72 oder 

einfach durch gleichzeitiges 


Vom Bi 


Das kurze Maschinenpro- 
gramm dient dazu, den Bild- 
schirminhalt beim Commo- 
dore 64 abzuspeichern und 
auch wieder einzuladen. 
Dies kann mit einem Recor- 
der oder Diskettenlaufwerk 
geschehen. Dabei werden 
außer dem eigentlichen 
Bildschirmspeicher (der an 
eine beliebige Stelle ver- 
schoben sein kann und nicht 
ab Adresse 1024 liegen muß) 
auchdasColor-RAMunddie 
Tabelle der Doppelzeilen- 
kennzeichnungen mitbe- 
rücksichtigt. Das Äbspei- 
chern und Einladen erfolgt 
über einen Pufferbereich im 
»versteckten« RAM ab 40960, 
da die drei verschiedenen 
Speicherbereiche in einem 
Stück abgespeichert und au- 
ßerdem die 1000 Farbnib- 
bles zu 500 Bytes zusammen- 
geschoben werden. Das er- 
spart beim Arbeiten mitdem 
Recorder wertvolle Zeit. 

Nach dem Eintippen des 
Basic-Loaders kann durch 
»RUN l&« geprüft werden, ob 
es richtig eingegeben wur- 
de. Trotzdem sollte es vor 
dem Start abgespeichert 
werden, da auch durch Prüf- 
summen nicht alle Fehler er- 
kannt werden können. Äus- 
gegeben werden zwei 
Adressen für das Laden und 
Speichern. Das Programm 
kann an jede Stelle des Ar- 
beitsspeichers geladen wer- 


Drücken von RUN/STOP 
und RESTORE wird wieder 
der Normalzustand herge- 
stellt. (Johannes Conrad) 


irm au 
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den, in der vorliegenden 
Version lädt es sich an das 
Ende des Basic-Ärbeitsspei- 
chers. Es ist davon auszuge- 
hen, daß das Programm di- 
rekt nach dem Einschalten 
ohne andere Erweiterungen 
eingeladen und gestartet 
wird. 

Soll ein Bildschirminhalt 
auf Diskette abgespeichert 


werden, so erfolgt dies 
durch 
SYS 40738 »FILENAME«, 8 


Beim Arbeiten mit Recor- 
der kann (auch beim Einla- 
den) die Gerätenummer ent- 
fallen; die Angabe einer Se- 
kundäradresse ist nicht er- 
laubt. Durch das Abspei- 
chern bedingte Betriebssy- 
stemmeldungen wie »PRESS 
RECORD & PLAY« sowie das 
Scrolling des Bildschirms 
sind unbedeutend und wer- 
den nicht berücksichtigt. Al- 
le Bildschirmdaten werden 
zuvorin einen Zwischenspei- 
cher übertragen. 

Das Einladen solcherart 
abgespeicherter Bild- 
schirminhalte geschieht mit 
SYS 40833 »FILENAME«, 8 

Zunächst werden die Da- 
ten in den Puffer von Ädres- 
se 40960 bis 42483 geladen 
und dann in MSB-Tabelle, 
Farbspeicher und die mo- 
mentan gewählte Videoma- 
trix übertragen. 


(Ralph Babel) 
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TEIL 2 3 SYNTHETISCHE 


Benutzen Sie die synthetischen Steuerzeichen, um Ihre Druckerlistings übersichtlicher 


achdem ich in der Äusga- 

be 5/84 des 64’er-Maga- 
zins die Erzeugung syntheti- 
scher Steuerzeichen und ih- 
re Wirkung bei Bildschirm- 
betrieb dargestellt habe, soll 
jetzt von neuen Möglichkei- 
ten für Druckeranwender 
die Rede sein. Dabei bezie- 
he ich mich auf den Drucker 
VC 1515, mit dem die Steuer- 
zeichen ausgetestet wurden. 
Es ist nicht auszuschließen, 
daß der eine oder andere 
Druckertyp unterschiedlich 
reagieren wird. Die wichtig- 
sten Steuerfunktionen dürf- 
ten jedoch auf allen Geräten 
die gleichen Reaktionen her- 
vorrufen. 

Bevor es nun zur Sache 
geht, sei mir — vor allem für 
neu hinzugekommene Leser 
— ein kurzer Äbriß des vor- 
angegangenen Artikels er- 
laubt: 

Zur Cursor-Steuerung, für 
RVS ON/OFF oder zum Bei- 
spielfürFarbumschaltungen 
stehen dem VC 20- bezie- 
hungsweise C 64-Anwender 
zwei Möglichkeiten zur Ver- 
fügung. Erstens kann die 
CHR$-Funktion genutzt wer- 
den (Beispiel ?CHR$(19) be- 
wirkt HOME) und zweitens 
erlauben reverse Steuerzei- 
chen eine direkte und kurze 
Eingabe der Steuerbefehle 
(Beispiel: das reverse S ver- 
anlaßt ebenfalls HOME). 
Nun existieren jedoch einige 
CHRS$-Codes, für die äquiva- 
lente Steuerzeichen nicht 
über zugehörige Tasten ab- 
gerufen werden können. So 
schaltet CHR$(14) beispiels- 
weise auf Kleinbuchstaben 
um. Mit Hilfe der ASC- 
Funktion zeigt sich, daß das 
reverse N den CHR$-Code 
14 trägt. Damit kann dieses 
Zeichen ebenfalls zur Steue- 
rung herangezogen werden. 
Da außer den konventionel- 
len Steuerzeichen keinerlei 
reverse Symbole in Strings 
vorkommen können, muß 
das reverse N quasi künst- 
lich erzeugt werden (daher 
der Name »Synthetische 
Steuerzeichen.. Aber dasist 
kein Problem! Wirhabenbe- 


122 Ikea 


reits ein Eingabeverfahren 
kennengelernt, dasich aber 
jezt nicht wiederholen 
möchte. Statt dessen möchte 
ich Ihnen ein anderes Ver- 
fahren zeigen, das vielleicht 
ein wenigübersichtlicher ist, 
als das im vorigen Heft be- 
schriebene. 

Geben Sie die Programm- 
zeile, die ein im String ste- 
hendes Steuerzeichen erhal- 
ten soll, wie gewohnt ein. Re- 
servieren Sie dabei jedoch 
mittels Space die Stelle im 
Textstring, wo später das 
synthetische Steuerzeichen 
stehen wird. Schließen Sie 
die Eingabe der Zeilemit Be- 
tätigung der Return-Taste ab. 
Nun können sie ohne Schwie- 
rigkeiten den Cursor auf 
die bewußte Stelle bewe- 
gen, durch gleichzeitiges 
Drücken von CTRL und RVS 
ON in den Revers-Mode 
schalten (es erscheint kein 
reverses R!) und schließlich 
den freigehaltenen Platz mit 
dem entsprechenden Rever- 
sezeichen belegen (in unse- 
rem Beispiel also mitdemre- 
versen N). Die so ergänzte 
Programmzeile wird jetzt 
durch erneutes Drücken der 
Return-Taste verlassen. Fer- 
tig. Auf diese Weise lassen 
sich sowohl die altbekannten 
als auch die neuen Steuer 
zeichen leicht erzeugen und 
entsprechend ins Programm 
einfügen. In den weiteren 
Ausführungen werde ich die 
synthetischen Steuerzei- 
chen vereinfachend in ge- 
schweiften Klammern dar- 
stellen (zum Beispiel rever- 
sesN = [N)). 


Die Drucker- 
»Synthies« 


Nun zum eigentlichen The- 
ma: Ich könnte fast wetten, 
daß einige Druckerbesitzer 
unter unseren Lesern inzwi- 
schen beim Experimentie- 
renmitsynthetischen Steuer- 
zeichen nicht schlecht ge- 
staunt haben. Denn auch 
hier eröffnen sich neue Mög- 


lichkeiten, an die bislang 
nicht zu denken war. So sind 
zwar keine spektakulären Ef- 
fekte in laufenden Program- 
men zu erzielen, dafür je- 
doch hat man erstmals die 
Möglichkeit, Druckerlistings 
zu manipulieren. Zuvor 
möchte ich Ihnen jedoch ei- 
ne Liste der Steuerzeichen 
geben. Es ist zu beachten, 
daß die mit *) gekennzeich- 
neten Steuerzeichen nicht zu 
densynthetischenzählen, da 
sich diese direktüber Tasten 
eingeben lassen. Sie wurden 
nur der Vollständigkeit hal- 
ber mit in die Tabelle aufge- 
nommen. 


Ber als 127 ist — als Grafikin- 
formationen interpretiert. In 
diesem Modus bleibt der 
Drucker so lange, bis er mit 


TEST>LAUF 


id REM GRAPHIK-MODUS 


28 REM IM LISTING 

32 DPEN4,4 

4a PRINT#4, "TESTeLAUF" 
59 PRINT#4:CLOSE4 


READY. 





Beispiel 1 


Steuerzeichen CHR$Code Wirkung 


8 Umschaltung auf Grafik-Modus 

10 Zeilenvorschub 

13 RETURN. Nachfolgende Zeichen 
werden nicht mehr gedruckt. 

14 Umschaltung auf Breitschrift 

15 Umschaltung auf normale Schrift- 
breite 

16 Festlegung der Druckstart- 
position 

17 Umschaltung auf Kleinbuch- 
staben 
RVSON 

26 Zeichenwiederholung (Grafik) 

27 Punktadresse für Druckstart 
SHIFT RETURN. Nachfolgende 
Zeichen werden in einer neuen 
Zeile gedruckt. 
Umschaltung auf Großbuch- 


Tabelle. Liste der Steuerzeichen 


Nun zu den Erläuterungen 
derjenigen Zeichen, die 
sinnvolle Änwendungen er- 
lauben. 


Grafik im Listing 


Dasreverse H gestattet die 
Umschaltung des Druckers 
in den Grafik-Modus. Alle 
nachfolgenden Zeichen im 
String werden — sofern ihr 
jeweiliger CHR$-Code grö- 





[N] oder [O} auf Schriftbe- 
trieb zurückgeschaltet wird. 
Betrachten Sie bitte das Bei- 


spiel 1. 
Zwischen »TEST« und 
»LAUF« befindet sich ein 


selbstdäefiniertes Grafikzei- 
chen, das sowohl im Pro- 
grammlauf als auch im Li- 
sting ausgegeben wird. 
Auch wenn Sie es zunächst 
nicht glauben — Sie sehen 
ein Original-Listingundnicht 
etwa gePRINTete Textzeilen. 
Ich will Ihnen den Trick ver- 
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zu machen. Es gibt interessante Möglichkeiten. 


0 
0 
0 
® 
0 
0 
0 


oo 0@ 800 


oo o@ 00 


oo 0o0@ 00 
oo 0@ 00 
oo 0 00 
ooe e..oo 
oOO@ 000 


& 
5 
8 


Bild 1. Vergrößertes Grafiksymbol aus Beispiel 1 


raten. Ineiner Vergrößerung 
sieht das Grafiksymbol aus 
wie im Bild 1 gezeigt. 


Die Umrechnung des dua- 
len Bitmusters in Dezimal- 
zahlen liefert diejenigen 
CHR$-Codes, durch die das 
Zeichen spaltenweise beim 
Drucken entsteht. Man muß 
also nur wiederum syntheti- 
sche Zeichen finden, die die 
gesuchten CHR$-Codes tra- 
gen. Bei diesem Beispiel er- 


gibt sich: 


"PEST {H) {SHIFTH) [SHIFTMINUS| {SHIFTT) [SHIFTT) 
8 136 156 148 148 


IFT*} 
28 


[SHIFT T] 
148 8 


Mit dieser Folge von rever- 
sen Zeichen erzielen Sie also 
den Ausdruck, der im Bei- 
spiel 1 abgebildet ist. 


Folgt dem [H]} keine Grafik- 
information, das heißt ist 
der CHR$-Code kleiner als 
128, so kommt es zum Äb- 
bruch des Listings. Diese 
Tatsache kann man sich be- 
wußt zunutze machen, wenn 
man ohne größeren Pro- 
grammieraufwand einen 
Drucker-Listschutz in sein 
Programm einbauen will. 
Der Bildschirmbetrieb lei- 
det darunter nicht, da [H} 
dort nur eine Verriegelung 
der Umschaltung zwischen 
Groß- und Kleinschrift be- 
wirkt. 


[SHFITT} {[SHIFTMINUS) [SHIFTH} [SH 
14 156 136 1 





Zeilenvorschub 


Die Beispiele 2.1 und 2.2 
zeigen daß |[J] einen Zeilen- 
vorschub mit Rückwagen- 
lauf verursacht. In 2.1 befin- 
det sich das reverse ] zwi- 
schen »TEST« und »LÄAUF«, 
bei 2.2 am Schluß des 
Strings. Da man das zweite 
Änführungszeichen eines 
Strings weglassen kann, so- 
fern keine weiteren Basic- 


Befehle mehr in dieser Zeile 
folgen sollen, ergibt sich so 
die Möglichkeit, echte Leer- 
zeilen mit [J} im Listing zu er- 
zeugen 


TEST 
LAUF 


12 REM ZEILENYORSCHUB 
2a REM IM LISTING 

sa DPENd.4 

“a FRINT#4, "TEST 
LAUF® 

38 PRINT#4:CLOSE4 


READY, 


Beispiel 2.1 


8 
8 
8 


 oooo0000 
BB“ 


ir 





TESTLAUF 


18 REM ZEILENVORSCHUB 
28 REM IM LISTING 

3a DPEN4,4 

48 FRINT#4, "TESTLAUF 


sa PRINT#4:CLOSE4 
READY. 





Beispiel 2.2 


[SHIFT T 
148 

[SHIFT*} {OJLAUF " 
28 1 





Breitschrift — 
Schmalschrift 


Während [N] beim Bild- 
schirmbetrieb auf Klein- 
buchstaben umschaltet, 
zeigt der Drucker eine ande- 
re Wirkung. Er wird veran- 
laßt, alle nachfolgenden Zei- 
chen in doppelt breiter 
Schrift auszugeben. Es ist al- 
so bei der Änwendung von 
{N} Vorsicht geboten, da ein 
für den Bildschirm konzipier- 
tes Programm beim Druk- 
kerlisting unerwünschte 
Steuerungen zur Folge ha- 
ben kann. In diesen Fällen 
sollte man {N} wieder durch 


den konventionellen Befehl 
CHRS$ ersetzen. 

Wollen Sie jedoch die 
Breitschrift zur übersichtli- 
chen Gestaltung eines Li- 
stings nutzen, so können Sie 
ruhig das {N} hier und da im 
Programm verstecken. Es 
bleibt demjenigen, der das 
Programm lesen soll, sowie- 
so verborgen. Wenn nureine 
Hervorhebung einzelner 
Worte, Befehle oder Zeilen 
gewünscht wird, muß die 
Breitschriftphase entspre- 
chend mit [DO] beendet wer- 
den. Im Beispiel 3 sehen Sie 
dieses Vorhaben realisiert. 
Hier bewirkt das [N] vor dem 
Wort »Test« die Umschaltung 
auf Breitschrift, während ein 
[O} vor »Lauf« diesen Modus 
beendet. 


18 REM BREITSCHRIFT 
28 REM IM LISTING 


sa OPEN4.4 
48 PRINT#4,"TESTLAUF" 
58 PRINT#4:CLOSE4 


READY. 





Beispiel 3 


Druckstartposition 


Die Druckstartpositionie- 
rung — vergleichbar mit 
TAB — wird normalerweise 
mit CHR$(16) und nachge- 
stellter Startadresse vorge- 
nommen. Älso etwa: 
PRINT #4. CHR$(16) "1OTEST' 

Diese Zeile druckt begin- 
nend in Spalte 10 nur das 
Wort »TEST« aus. Die im 
String vorangestellte Zahl 
dient dabei als Startadresse. 
Daskürzere Äquivalent sieht 
nun wie folgt aus: 

PRINT #4,’{P}lO TEST" 

Doch Vorsicht! Obwohl 
diese Anweisung während 
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Autostart 


des Programmlaufs korrekt 
ausgeführt wird, verschluckt 
sie der Drucker im Listing 
vollständig. Das 4. Beispiel 
zeigt, daß von [P}lO zwischen 
»TEST« und »LAUF« nicht 
mehr zu bemerken ist. 


19 REM DRUCKSTARTFOSITION 
15 REM IST IM LISTING 


za REM NICHT SICHTBAR 
sa DOFEN4.4 

4a FRINT#4, "TESTLAUF" 
5a FRINT#4:CLOSE4 


READY. 





Beispiel 4 


Damit verbietet sich die 
Anwendung des syntheti- 
schen [P} bei Programmen, 
die zum Beispiel zur Veröf- 
fentlichung vom Drucker do- 
kumentiert werden sollen. 


Für die Zeichen {ZiZei- 
chenwiederholung und |] 
(Punktadresse für Drucker- 
start) haben sich bislang 
noch keine sinnvollen Ein- 
satzmöglichkeiten ergeben. 
Sie sollen daher jetzt nicht 
weiter diskutiert werden. 
Auch auf die Beschreibung 
von [Q} [R}, [SHIFT Q} und 
{[SHIFT R} möchte ich ver- 
zichten, dasie keine syntheti- 
schen Zeichen sind und sich 
damit «ganz normal« verhal- 
ten. 


Ich persönlich benutze die 
synthetischen Steuerzei- 
chen gern zur Gestaltung 
von Listings. Wie so etwas 
aussehen kann, habe ich Ih- 
nen im abschließenden Bei- 
spiel 5 zusammengestellt. 


Vielleicht versuchen Sie 
einmal, die versteckten und 
unsichtbaren Steuerzeichen 
herauszufinden. 


(Jürgen Wagner) 
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REM DEMO ZUR OPTISCHEN STRUKTURIERUNG 
YON DRUCKER-LISTINGS MIT 
STHTHETISCHEN 
STEUERZEICHEHN 


a REM 
REM" 
REM" 

3 REM" x 


3 FORI=1T064 


HRUFTFREOGRRAMDM 


RINTS+"ER-MAGAZIHN 


GOSUB398 :NEXT:" 
EHD 


RH'# UHTERFROGFERMM 


FORJ=1TOS@:NEXT 
RETURN: " 


486 RM'DRIGINAL_—-LISTING!" 


READY. 


Beispiel 5 













s gibt beim C 64 mehrere 

Möglichkeiten, einen Au- 
tostart herbeizuführen. Ich 
will Ihnen hier eine weniger 
bekannte Methode vorstel- 
len: 

Die Stack-Manipulation. 

Der Stack belegt beim 
C 64 den Bereich $0100 bis 


ann (el 


Welcher Anwender hat sich nicht schon 
immer gewünscht, seine Programme »so einfach wie 
möglich« in den Computer zu bringen. Geräte der 


oberen Preis-/Leistungsklasse sind zu diesem Zweck mit 
einem Autostart-Mechanismus ausgerüstet. Dabei wird das Programm 
ohne weiteres Zutun nach dem Anschalten des Gerätes vom 
Massenspeicher (Floppy) in den Computer geladen. Hier soll jetzt die Realisierung 

eines solchen Autostarts auf einem C 64, beginnend mit der dazu 
nötigen Theorie, beschrieben werden. 


$01ff (256 bis 511). Er wird un- 
ter anderem zum Ablegen 
von Rücksprungadressen 
benutzt. Nach Beendigung 
einer Routine sucht sich der 
Prozessor vom Stack zwei 
Bytes (nämlich die Rück- 
sprungadresse in das Haupt- 
programm) und springt die 


Adresse, die sich aus diesen 
beiden Bytes ergibt, an. Ei- 
gentlich ist daraus schon zu 
ersehen, was zu tun ist: Man 
müßte diese Rücksprung- 
adresse so ändern, daß das 
Programm nicht an die ei- 
gentliche Rücksprungstelle 
springt, sondern auf eine ei- 


gene Routine. Jetzt jedoch 
tauchen schon die ersten 
Probleme auf: Wie soll der 
Stack geändert werden, oh- 
ne daß man dafür ein Extra- 
Programm braucht? Wie soll 
sich das Programm nach 
dem Ladevorgang automa- 
tisch starten? 


10nA 


G 64 


Autostart 





Die Theorie 

Auf beide Fragen gibtes 
eine Äntwort: Da sich der 
Stack beim Ladevorgang än- 
dern soll, ist es das einfach- 
ste, den (manipulierten) 
Stack einfach mit abzuspei- 
chern! Damit hätten wir dann 
auch den von uns gewünsch- 
ten Inhalt des Stacks gela- 
den. Dann aber tauchen 
schon die nächsten Fragen 
auf: Woher wissen wir, aus 
welchem Stack-Bereich der 
Prozessor seine Rück- 
sprungadresseholt?Die Ant- 
wort ist: Wir wissen es nicht! 
Unsere einzige Möglichkeit 
ist, den ganzen Stack mit der 
von uns gewünschten Rück- 
sprungadresse zu belegen. 
Das Programm, auf das un- 
sere Adresse zeigt (ein Ma- 
schinenprogramm), hängen 
wir direkt an den Stack an. 
Von dieser Startroutine wird 
nun das eigentliche Haupt- 
programm, das wiederum 





hinter der Routine liegt, an- 
gesprungen. Die Reihenfol- 
ge der Programmteile und 
des benötigten Speichers ist 
in Bild 1 zusammengefaßt: 





Der Ladevorgang unseres 
Autostart-Programms muß 
mit »LOAD "xxx'"'8,l« erfol- 
gen, damit das Programm 
nicht ab der Ädresse $0801 
(normaler Basic-Speicher), 
sondern ab $0100 geladen 
wird. Schauen wir uns nun 
noch einmal an, was im ein- 
zelnen beim Ladevorgang 
passiert: 

1. Laden des Programms von 
Diskette oder Kassette mit 


»LOAD "xxx",8,l«. 


2. Nach Beendigung des La- 
devorgangswillsich der Pro- 
zessor vom Stack die Rück- 
sprungadresse ins Basic ho- 
len, findet aber die (soeben 
geladene) Adresse aufunser 
eigenes Startprogramm und 
springt dies an. 

3. Unser Startprogramm 
springt jetzt das eigentliche 
Hauptprogramm an, das ir- 
gendwo ab $0801 stehen 
sollte. 

Nachdem also das Pro- 
gramm mit »LOAD "xxx”,8,1« 
geladen wurde, startet es 
sich selbst sofort. 

Zum Abschluß seinoch ge- 
sagt, daß einige Vorgänge 
zur besseren Verständlich- 
keit vereinfacht werden 
mußten. Bei eigenen Experi- 
menten sei geraten, das ab- 
gedruckte Demo-Programm 
zu modifizieren. Außer eini- 
gen saftigen Äbstürzen kann 
eigentlich nichts passieren. 


Die Praxis 


Das abgedruckte Demo- 
Programm läuft ohne Ände- 
rungen aufeinemC 64 mitei- 
ner 1541-Floppy (Gerätenum- 





Bild 1. Programmadressen 


mer8). Die Änpassunganan- 
dere Gerätenummern dürfte 
keine Schwierigkeit darstel- 
len. Lediglich in den Zeilen 
110, 112, 120 und 180 ist die 8 
durch eine 9zu ersetzen. Die 
Beschreibung der einzelnen 
Programmteile ist in Bild 2 
zusammengefaßt. 

Nun zum Programm selbst: 
Das Programm Autostart- 
Maker gibt dem Benutzer 
die Möglichkeit, ein beliebi- 
ges Programm mit einem Äu- 


tostart zu versehen. Dabei 
muß folgende Bedingung er- 
füllt werden: Das Programm 
muß mindestens eine Basic- 
Zeile enthalten. Dies ist not- 
wendig, da der vom 
Autostart-Maker generierte 
Autostart das Hauptpro- 
gramm mit dem RUN-Befehl 
startet. Zu diesem Zweck 
prüft der Autostart-Maker 
die Startadresse des ge- 
wünschten Programms und 
wirft eine Fehlermeldung 
aus, falls diese ungleich 
$0801 (Basic-Start) ist. 






Wenn aber alles in Ord- 
nung ist, so arbeitet das Pro- 
gramm eine Weile mit der 
Diskette, bis es eine Ende- 
Meldung ausgibt. Sollte ein 
Diskettenfehler auftreten, so 
macht sich das Programm 
optisch und akustisch be- 
merkbar. Danach hat der Be- 
nutzer die Wahl: das Pro- 
gramm zu beenden oder ei- 
nen neuen Start zu versu- 


ir, chen. 


Im Programm sind folgen- 
de Unterroutinen enthalten: 


10000 Fehlerkanal lesen 
und auswerten 
20000 Gong ausgeben 


(wird von Fehler-Routine auf- 
gerufen) 


In den Zeilen 30000-stehen 
die DATAs für das Startpro- 
gramm, das das eigentliche 
Hauptprogramm ansprin- 
gen soll. Die Bedeutung ein- 
zelner Zeilen läßt sich auch 
den REM-Statements des 
Programms entnehmen. 

Ein mit diesem Autostart 
versehenes Programm ist 
auch in gewissem Sinne ge- 
schützt. Es läßt sich weder 
mit RUN/STOP noch mit RE- 
STORE abbrechen. Wird ex- 
tern ein RESET-Impuls er- 
zeugt, so wird der ganze 





z rar arte, 
1 genener“ 

u 

TE else 


Bild 2. Programmbeschreibung 


Speicher gelöscht, bevor in 
die normale RESET-Routine 
verzweigt wird. Diese Eigen- 
schaften gehen auf den Auf- 
bau unseres Startpro- 
gramms zurück. 

Geladen wird das neue 
Programm mit »LOAD "na- 
me''8,l«. Der Name ent- 
spricht dem des Ursprung- 
programms mit dem Zusatz 
»/a«. Noch ein Tip: Wenn Sie 
im Besitz eines Basic- 
Compilers sind, so sollten 
Sie den Autostart-Maker 
compilieren. Und nun viel 
Spaß mit dem Autostart-Ma- 
ker. WendenSieihndocham 
besten gleich mal bei Ihrem 
Programm an. 

(Andreas Wurf) 





Variablenliste »Autostart« 


kan 120 


v REM" ea 


1 REN” ** Autostart _ NAKER >> 
2 REM" * gpyrisHt (C) BY 
3 REM „uDrEAS ZUR * 
a REN" * \aMBURG 75 * 
5 REM" \ABENSTIES * RR 
5 RENT 5 veL.a L0M0) va7 00 28 10010 print IT” —RRORk "AS"! uggr ON "15". 
7 REM" ** SERSION ++ 5 
g REM" een ps: 505UB 20009 
9.1 re N gso9ra" AN DS TAN THEN 0030 
Pr ur ‘ n } $ ” “ 1 
kn au na ka e 10040 CLOSE i & 2,cLose 15: qgz"r" THEN 
20 pRINT"DIE copyri6HT ıc) 1985 auoreas DURF 
m 10050 END 
30 PRINT"DIR _oMMoDORE ba - VERSION 20000 51254272: POKE gr+5,g,POKE gr+5 0, POKE si+? 
wg" 4, 
X erintengat/DTE! 0UR —ROBRAN MUST HAVE A \2® 20010 poke SI „30: POKE gj+1,50:POKE g1+4,17: FOR 1 
x 0 To s00:NEAT! oke s1+4,0 
50 pRINT« START, such AS "40 9 KXRRR) uny® 20020 POK 51,20% Ke Sit ‚20, POKE g1+4,173 FOR I 
50 ERINTALISNTER /aME OF ROB.! ";s0PpEN 1,031NP =0 10 „00,NEXT:POKE 81+4,0 
yrat has cLüSsE {PRINT 20030 POKE g1+24,D:RETURN 
bi NA eensenas Le) EREN uyuErzeNn AUF 15 WELLE 30000 DATA ROTEN nz 22 
N 2,189,1 ‚253,197,°, 28,202 
79 pRINTFIISNTE Ros's —18 anD PRESS AKEY !" 30010 DATA a 
go For 1=0 10 20:6E1 As Ir A un THEN 100 1128,12 
85  EytapriNnT"DssNIeR Ros's -15K AND PRESS AK 30020 DATA BEE na usnasssee 
IT 5002 az no, 7617 
R 1-0 10 20:6ET asılF asL2"" THEN 100 30030 DATA EEE aa ET 
95 NEXT: 601070 5, 1301200 20 0 
100 EEE anna ua /ATREN yanE DES NEUEN = 30040 DATA REEL ns na 
ROSRANMS ‚9,157,0,128) 02,15,250 
110 OPE 15,8, spRINT 30050 DATA 76,226 ,232 
y12 OPEN 1 „8,0 Nas: B0SUF 10000, CLOSE i READY. 
120 OPEN LES une paNTEPRINTIE \ENERATE 
TOSTART": psup 10000 
130 ART ERS na or schRs Ch HRET" ROsRAnNSTART Mit diesem Listing kö 
= 50100 Programm, das ug Sie jedes 
‚ao For 1=256 10 en al a a an 
Ginmer 1a hatte nes TARTPENS. sehen, direkt nach ne 
150 RESTOREIFÜR js515 TO 106: READ AuprINTKL„CHRF führt wird. m Laden ausge- 


{Al} LNEXTIREN" wrarTpragRan 
160 FOR j=607 T0 AeTeRDSEN, ‚anna EEK INN 


TıREN" JORMALER NHALT 
164 FOR 121024 T0 KALT, nun anna 52h NEXT 


: 10000 
190 ETLICHE 
Ü QTARTADRESS 


es 6 
cıas)el AND AscıB$)=8 THEN 250: REN" LE 
Y 






InTeeTÄrT- @DR- 12 aurte- EN ıs NOT UNI 


zo s0801. cAn’T USE 1." cLOSE 1:CL 
0sE 15: 605UB 20000:END 
As="" THEN As=chR$ (0) 


tar ,Ass if 
ir ST THEN erınTE2, Ass: 6070 300 
2 $;160T0 250 
suB 10000: LOSE 1:cL0SE 2,CL0SE 
TInTK:- Ei 
y ol 





15 
re” CHR$ (34) +Nns+CchHR$ (3 


v 

410 REM" _OUTINEN UND 4) #'5 

420 * 

10000 npurais,as,ps,0#1D4*17 yaLtas)=0 THEN RET 


An 


Er 





\ 
* 





19, 






A n seinem Foto können Sie 
schon erkennen, daß der 
Autor Bernd Pape eine Men- 
ge Witz und Phantasie be- 
sitzt. Auch in seinem »Le- 
benslauf« und seiner Spiel- 


beschreibung kommt das 
ganz klar zum Ausdruck. 
Doch lesen sie selbst: 

Anleitung für dasSpielpro- 
gramm »Q Bernd«. 

Was Sie hier erleben, ist 
der ebenso heldenhafte wie 
qualvolle Untergang des 
letzten Menschen der Erde: 
Q Bernd. Auf einem hyper- 
wasserstoffbombenfesten 
Teil des Verwaltungsgebäu- 
des der Äntiwurgkommis- 
sion ist esihm gelungen, die 
Explosion zu überleben, die 
ein jähzorniger Erdkunde- 
lehrer in einem Wutaus- 
bruch durch seine über- 
mächtigen Gehirnwellen er- 


149 TiR-Ta 


zeugt hat. Q Bernd hat sich 
auf dem folgenden langen 
Flug durch den Weltraum 
auf den leider nur sehr spär- 
lich vorhandenen Sauerstoff 
einstellen können, was aller- 
dings nicht ohne bleibende 
Schäden abgegangen ist, 
wie man an seiner dunklen 
Hautfarbe und seinen O- 
Beinenerkennen kann. Äber 
leider schwebt Q-Bernd mit 
seinem hyperwasserstoff- 
bombentesten Fetzen nicht 
alleindurch die unendlichen 
Weiten des Weltraums. Als 
er ungefähr 765.854.863.654. 
392 Q-Berndsche Lichtmo- 
nate hinter sich geleat hat, 
was nur dadurch möglich 
war, daß er sich jegliche Er- 
nährung seines schon da- 
mals O-beinigen und sehr 
dunklen Körpers abgewöhnt 
hatte, näherte sich ihm ein 











REMFRRHHRRRKERERHHEHHRER 
REM* 

REM* COPYRIGHT BY : 
REM*+ BERND FAFPE 

REM* UNTERM SCHRICK 11 
REM* 4530 BOCHUM 1 
REM+ 
REMKRHHHHHHEREHRRERHRFER 

10 FRINT"L":POKESS281 ,0:PFOKESS280,2 


anenpsünn 
x HK 


20 PRINT:PRINT"A won" 

50 PRINT" ww un" 

40 FRINT” IR AN [w " 

50 PRINT" WIEN ma u Rn " 

&0 FRINT" IN ma un" 

70 FORI=0TO1:FRINT" N mBa| Bi ma 
Ns NEXTl 

80 FRINT" u mal N m | m Be 
Be BE 


70 FRINT'TD IE ma u Main a = 


2 EZ oO BEE BEE OK" 

100 PRINT'D 2 ma | N mm a 
am Be um m 

110 PRINT’) IK mia | I mid we 
IM DE RE BE 

120 FRINT'D DIR ma u win 5» 
3 :=aCH iu 

130 FRINT'N) IR ma Bi in ae 
140 FRINT"D IK ma | [N ru 2 En 

150 PRINT" IR ma | wer maı" 
1560 FRINT' RR vn u 4," 

170 FRINT u ven Mi ma," 

wur KKC) BYE 


180 PRINT" up u 
ERND FAPE 1984" 


190 FRINT" Du [Ri " 
200 FRINT" u ma u 
up, „ 
210 PRINT"D Nu 
ma" 


220 GOSUB11IO 

230 51=54272:FORI=STD19STEF7:FOKESI+I,15 
:POKESI+I+1 ,255:NEXTI:FPOKESI+24,15 

240 FOKES3280,2:FRINT"W":FORI=1T08:PRINT 
:NEXT 
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lange Programme werden 
‚ange Programme werden. 


| Version eines bekannten Spielhallenhits. 


250 FRINT"W@®MOECHTEN SIE MIT":FRINT 

26580 PRINT"EEIJISOYSTICK (PORT) ODER 
ETISASTATUR" = PRINT 

270 PRINT"BSPIELEN ?":B$="" 

280 IFFEEK (203) =22THENPOKE198,0:60T0320 
290 IFFEEK (203) =340RPEEK (2053) =6&0THENB$=" 
J":60T0380 

300 D=D+1: IFD>SOOTHEND=0: G0TO10 

510 6070280 

320 PRINT"L” 

3350 PRINT:PFRINT"WWELCHE TASTE SOLL HEISS 
EN 2"=:PRINT 

340 INPUT"-LINKS DBEN";LO$:PRINT 

350 INFUT"-RECHTS OBEN";RO$:PRINT 

360 INPUT"-LINKS UNTEN"; LU$=:PRINT 

370 INPUT"-RECHTS UNTEN"; RU$ 

380 FRINT"Ü":L=0:FA=3:P=0:RU=48 

390 B=1150:F=554352:FORA=0T08: G60T01050 
400 FORA1=0T06: H=A#79+A1#42 

410 FORI=0T02:POKEF+H+I,1:NEXTI:FOKEB+H, 
233: POKEB+H+1 „224: POKEB+H+2, 105 

420 FORI=0T01: POKEB+H+I+40 ,224: FPOKEF+H+I 
+40 ,2:NEXTI:NEXTA1:NEXTA 

430 FORI=4T018STEF7:POKESI+I,O:NEXTI:RES 
TORE 





Wesen, daseinen derartigen 


Hunger entwickeln kann, 
daß es sogar Scheusale wie 
Q-Bernd frißt. Sie haben mit 
Ihrem Commodore 64 nun 
die Möglichkeit, das Leben 
Q-Berndsdurch schnelle Re- 
aktion und gute Taktik um 
wertvolle Sekunden zu ver- 
längern. Sagen Sie ihm wahl- 
weise per Tastendruck oder 
Joystickbewegung, wie er 
diesem Scheusal auswei- 
chen kann. Jeder Sprung auf 
eine Stelle des hyperwasser- 
stoffpombenfesten Fetzens, 
den er aufseiner langen Rei- 
se noch nicht erreicht hat, 
dankt er Ihnen in seiner To- 
desangst durch Punkte. 
Wenn er auf diese Weise 
den ganzen Fetzen erforscht 
hat, hat ihr Commodore 64 
durch die Punkte genügend 
Kraft, um Q Bernd einen neu- 










en.noch hyperwasserstoff- 
bombenfesteren Fetzen zu 
geben, was Ihnen Q Bernd 
durch Zusatzpunkte dankt. 
Doch — Oh Schreck! — mit 
jedem Fetzen erhöht sich die 
Anzahl der gefräßigen We- 
sen. Erst wenn ihre Anzahl 
auf die runde Zahl 10 gestie- 
gen ist, hört diese er- 
schreckende Fortpflanzung 
auf (die Wesen haben Angst 
vor Überbevölkerung). Doch 
der Untergang QBerndsläßt 
sich nur hinauszögern — 
nicht verhindern. Irgend- 
wann werden ihn die Wesen 
packen und Sie können in Ih- 
rem Mitleid nurnoch die Ge- 
räusche der gestörten Ver- 
dauung der widerlichen 
Scheusale wahrnehmen, 
ehe Sie das Spiel wieder mit 
einem Druck auf die Taste 
»Fl« neu starten. 


Ka 1412 


C 64 








Listing 
ER: next 2 0-Bernd 
(Fortsetzung) 


1AA (Til 


Und nun das Gleiche für 
Praktiker: 

Steuern Sie ihr Männchen 
wahlweise mit Joystick oder 
Tastatur so, daß alle 49 Fel- 
der gefärbt werden, um in 
die nächste Phase zu gelan- 
gen. In jeder Phase bis zur 
Phase 10 erhöht sich die An- 
zahl der Figuren, deren Be- 
rührung mit Ihrem Männ- 
chentödlich ist. Danach wird 
das Spiel nicht mehr schwie- 
riger. MitDruck aufdie Taste 
»fl« können Sie das Spiel neu 
starten. (Bernd Pape) 


Lebenslauf 


Am 6.12.1968 wurde ich als 
angeblich gewolltes Kind 
meiner Eltern versehentlich 
im Ruhrgebiet geboren und 
wenig später in Stade, einer 
sehr schönen Stadt zwischen 
Hamburg und Cuxhaven auf 
den Namen Bernd getauft. 
Bernd Pape war also der Na- 
me, der von nun an meine 
Umwelt in Schrecken verset- 
zen sollte. Ungefähr 6% Jahre 
später gelang meinen Eltern 
ein kaltblütiges Attentat: Sie 
schulten mich in Bochum, wo 
ich auch jetzt noch meine Re- 
sidenz habe, gegen meine 
schärfsten Proteste ein. Als 
ich nach 4 Jahren meinte, die- 
ses Übel überstanden zu ha- 
benundichgerade das Wort 
»arbeiten« aus meinem Voka- 
bular streichen wollte, ge- 
langes der Bürokratie, einen 
entscheidenden Sieg über 
mich zu erlangen: Ich wurde 
zum Gymnasiasten erklärt. 
All diese Mißhandlungen 
konnten mich aber nicht da- 
von abhalten, meinem Pro- 
test durch ausgiebige Frei- 
zeitnutzung Nachdruck zu 
verleihen. Zunächst hatte ich 
nur die Möglichkeit, meine 
Eltern und die Nachbar- 
schaft durch falsches, aber 
lautes Akkordeonspielen zu 
ärgern. Mit meinen ersten 
Elektronikkästen konnte ich 
dannaber mein Waffenlager 
erweitern: Ich ergingmichin 
den herrlichsten und laute- 
stenSirenenschaltungen des 
19. Jahrhunderts — oder des 
zwanzigsten? Geldgeschen- 
ke zur Konfirmation (weitere 
Spenden nehme ich gerne 
entgegen!) ermöglichten es 
mir, alle Leser dieser Zei- 
tung aufzufordern, den 
Kampf um möglichst viel 
Freizeit nicht aufzugeben! 
Denn von diesem Geld holte 
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ich mir den Commodore 64, 
auf dem ich den »Q Bernd« 
unter besonders erschwer- 
ten Bedingungen geschrie- 
ben habe. Nacheiner Latein- 
arbeit, deren Zensur nicht 
genau den Vorstellungen 
meiner Eltern entsprach, er- 
hielt ich »Computer-Verbot«. 
Gott sei Dank sah ich dies 
schon beim Schreiben der 
Arbeit voraus, was dazu führ- 
te, daßich meine Diskette mit 
dem schon angefangenen 
Programm vor der lieben- 
den Umsicht meiner Eltern 
retten konnte. So entstand 
der Rest des Programms 
durch mein heimliches Pro- 
grammieren in verschiede- 
nen Computerläden Bo- 
chums. Hier ist es nun, das 
Programm, für dasBernd Pa- 
pe seinen Hausfrieden ge- 
opfert hat: Q Bernd! 


Listing Q-Bernd 
(Schluß) 


3 
I 


& 


RI=1g 


7 


sp, ARE: 


S 
(Bernd Pape) ORESE. OKES I EN SOST, 
780 PHkr 143 


0-Bernd 





ST 





‚FA: NEXTWy- 


Druckfehler- 
teufelchen 


Die Redaktion hat- 
te mir ausdrücklich 
den Kampf erklärt. 
Dennoch konnte ich 
wieder zweimal zu- 
schlagen und Ver- 
wirrung stiften. 


Schatzsucher, Seite 91 Aus- 
gabe 5/84 


»Nein, die Zeile 440 im Li- 
sting »Schatzsucher« fehlt 
nicht« wurde zur Stan- 
dardantwort. Der Autor 
dieses Listings hatte an- 
scheinend, bevor er den 
Beitrag einsandte, ein Re- 
number durchgeführt. 
Nachträglich wurde dann 
von ihm die Zeile 440 ent- 
fernt. Was in dieser Zeile 
stand, wird wohl immer 
ein Rätsel bleiben. Auf 
den Programmablaufhat- 
te sie auf jeden Fall kei- 
nen Einfluß. Trotzdem be- 
danken wir uns bei den 
zirka eintausend Lesern, 
die uns im letzten Monat 
diesen »Fehler« melde- 
ten. 

Nun zu einigen wirkli- 
chen Fehlern. Wir möch- 
tenunsauchhiernochbei 
unseren Mitstreitern im 
Kampf gegen den Fehler- 
teufel bedanken. 


Supergrafik ohne Erweiterungs- 
modul, Seite 81, Ausgabe 5/84 


In Zeile 4030 muß »BC 
+l« durch »BC=BC+l« 
ersetzt werden, sowie in 
Zeile 4050 P = PEEK(P): 
durch P = PEEK(B): 


Adreß- 


und Telefonregister, 
Seite 67, Ausgabe 5/84 


Zeile 1060 muß lauten: 
1060 FORI=0TOAN 
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Das ist der dritte Teil einer Serie über die Abfragemethoden für Tasten und ihre ve 
und den C 64 gleichermaßen. Wo Unterschiede auftreten, sind di 


he versucht, Sie zum Experimen- 

tieren mit den ASCII-Codes anzu- 
regen. Heute habe ich für Sie die 
vollständige Liste aller 255 Code- 
werte vorbereitet und zwar in einer 
Art, die sicher einiger Erklärungen 
bedarf. 


ASCII-Codes, die von 
Commodore verschwiegen 
werden 


Ich habe nämlich noch ein paar 
zusätzliche Überraschungen parat, 
auf die man nur durch Zufall kommt 
oder durch Studium des Betriebssy- 
stems oder aber, wenn man den Auf- 
satz von G. Urbanczyk in Computer 
persönlich vom 19.10.1983, Seite 76, 
gelesen hat. 

Tippen Sie bitte das Programm 
Nummer 3 aus dem 64’er Mai-Heft, 
Seite 107, ein, nämlich eine der drei 
Versionen zur Tastaturpuffer-Äbfra- 
ge. (Ich verwende unten die GET 
Version). 

310 PRINT CHR$(47) 

320 GET A$ 

330 IF A$= ” " THEN 320 
340 PRINT ASC(AS) 

350 GOTO 320 

Auf beiden, VC 20 und © 64 erhal- 
ten Sie nach RUN 310 und Drücken 


| chhabe im zweiten Teil dieser Rei- 








Der Versuch wird Ihnen zeigen, 
daß alle Buchstaben, von A bis ZZ, zu- 
sammen mit CTRL gedrückt, einen 
anderen ASCII-Wert, nämlich 1 bis 
26, ergeben, als allein gedrückt. 

Desweiteren biete ich Ihnen noch: 


CTRL—! = 30 
CTRL— = = 31 
CTRL—-£ = 28 
CTRL—: = 27 
CTRL—; = 29 


Das heißt aber, daß einige ASCIH- 
Codezahlen zwei Bedeutungen ha- 
ben. Oder umgekehrt, zwei ver- 
schiedene Tasten (kombiniert) ha- 
ben denselben ASCII-Code. 


Schwierigkeiten dadurch, daß ei- 
nige ASCII-Werte zwei Bedeutun- 
gen haben, gibt es deswegen nicht, 
weil dieKombination mit CTRLnicht 
PRINT.-bar ist (PRINT CHR$(I9) 
schickt immer den Cursor »home«, 
mit dem »S« passiert gar nichts). 

Andersherum kann es allerdings 
vorkommen, daß eine Tastenabfra- 
ge, zum Beispiel 
GET AS:F BS- CHR$(9) THEN ....... 
sowohl auf die Taste »HOME« als 
auch auf»CTRL-S« reagiert. Da ist si- 
cher etwas Vorsicht angebracht. 
Aber ein Blick in meine ASCII- 
Tabelle zeigt Ihnen ja die Doppel- 
deutigkeiten. 


An dieser Stelle erwarte ich ei- 
gentlich einige Einsprüche, wie: 
»Wozu das alles, die acht Funktions- 
tasten, oder gar erweitert auf 32, rei- 
chen doch völlig aus!« Für den Haus- 
beziehungsweise Spielgebrauch ist 
das sicher richtig. Äber bei profes- 
sioneller Software, welche benutzer- 
freundlich aufgebaut ist, kann es oft 
gar nicht genügend Funktionstasten 
— besonders solche, die eine opti- 
sche Buchstabenbeziehung zu der 
Abfrage haben sollen — geben. 
Wenn in einem Programm gefragt 
wird, obSie»LOADen«oder»SAVEn« 
wollen, ist CTRL-L oder CTRL-S halt 
klarer, als £-] oder f-3. 

Ich finde es schade, daß diese 
großartige Möglichkeit nur auf dem 
C 64 gegeben ist. Hier zeigt sich 
deutlich, daß dieser Computer 
doch professioneller ist als der VC 
20. 


Die vollständige ASCIl- 
Tabelle 


So, jetzt können Sie meine ASCII- 
Tabelle erst richtig interpretieren 
(Tabelle ]). 

Leere Kästchen haben keine Be- 
deutung für die betreffende Code- 
zahl 


5 REMRRRRREHURHUEER EINE EEE EHEN 
6 REM*#**# SPIEL MIT FINKELN #x#####H%%%* 
7 BREMER EEE EEE HEHE 
10 FRINT CHR#$ (147) 


der RETURN-Taste (natürlich) den 
ASCII-Code 82, Wenn Sie zuerst die 
CTRL-Taste drücken und halten und 
dann erst das R drücken, dürfte ei- 


gentlich nichts passieren, denn die = ee 

CTRL-Taste gilt ja angeblich nur für ee 6 ) 

die Farben. Ja, denkste! Wir erhal- hl? 
ten nämlich die Zahl 18. Ein Blick in 60 IF R>71 THEN 400 

die ASCII-Tabelle zeigt uns für 18 die 70 PRINT CHR& (A); 

Funktion »REVERSE-ON«. 80 FOR T=1 TO 1000:NEXT T 


100 
110 


un 


GET A 
IF At<>"gf" 


mm TrairTiiidit . 
rRiNi 5 


IF A=R THEN F=F+i 
GOTOQ SO 

IF AS>R THEN F=F+1 
R=R+1 

s20 G60T0 50 

400 FPRINT"RAIKSDAS SFIEL IST ZU ENDE"; "SS 
"F"FEHLER" 


Versuchen Sie dasselbe mit CTRL 
und der --Taste. Wir erhalten die 6, 
und nicht 95, wie es eigentlich sein 
sollte. 

Für den VC 20 ist das alles. Aber 
immerhin, wir haben sozusagen 
noch zwei zusätzliche Funktionsta- 
sten gefunden. 

Beim C 64 aber geht eserstrichtig 
los: 


142 Kan 


THEN 500 
1.) 
200 
210 
500 
310 


Programm 2 
Spiel mit »Finkeln« für C 64 
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chiedenen Codes. Alle Angaben gelten für den VC 20 
Nerte für den Commodore 64 in Klammern gesetzt. 


Jeweils zwei Zeichen nebeneinan- 
der mit derselben Codezahl stellen 
die beiden Zeichensätze dar, in die 
mit C=SHIFT (Commodore-Taste) 
umgeschaltet werden kann. Wo nur 
ein Zeichen steht, ist es in beiden 
Zeichensätzen identisch. 

Die Funktionen der Codezahlen 
129 und 149 bis 155 gelten nur für 
den C 64. Interessant ist übrigens, 
daß die 4. und 7. Spalte identisch 
ist, ebenso die 6. und 8. Spalte (au- 
ßer dem Zeichen für 255). 

Ich möchte jetzt gern die Szene 
wechseln, ohne aber den ASCII- 
Code aus den Augen zu verlieren. 
Wir haben den ASCII-Code bisher 
verwendet, um Tasten abzufragen 
oder Funktionen auszuführen. 
PRINT CHR$(66) druckt zum Bei- 
spielden Buchstaben B auf den Bild- 
schirm. 

Welche Methoden kennen Sie 
noch, mit denen das gleiche erzielt 
werden kann? 

Die erste, die jeder aus dem 
Handbuch lemt, ist 
PRINT "B". 

Die komplizierteste ist: 
POKE 7680,2: POKE 38400,7 
(POKE 1024,2: POKE 55296,7) 

Diese beiden Vorgehensweisen 
wollen wirunsnäheranschauen und 
prüfen, ob wir sie in Analogie zu 
dem ASCII-Code für Tastenabfra- 
gen einsetzen können. 

Esistsicher vielbequemer, länge- 
re Buchstabenreihen oder gar Texte 
zwischen Gänsefüße gestellt einzu- 
tippen, als eine Serie von 
CHR$-Werten, ganz abgesehen vom 
erforderlichen Speicherplatz. 


3 REMxAKKHKKEKER 

4 REM#+#CODE -WANDLER K%* 

5 REMIRHHHHHHeKEH 
PRINT CHRS(147) 
INPUT "BASCII-CODE" 
IF ACI1l=8 THEN END 


FACII 


IF ACII AND 128 THEN BILD=ACII AND 127 OR 64:60T0 sol 


Nicht ganz so bequem ist der 
Gänsefuß-Modus bei Steuerzei- 
chen, wie zum Beispiel Cursor- 
Bewegungen, besonders, wenn 
man diese herbeiführen will, aber 
stattdessen die reversen Darstellun- 
gen auf dem Bildschirm erzeugt. 


Der Gänsefuß-Modus 


Geben Sie es zu. Sie haben des- 
wegen auch schon herzhaft ge- 
flucht. Auch jeder Redakteur bittet 


um Listings mit CHR$-Darstellung 


anstelle der reversen Zeichen, die 


bei der Druckwiedergabe oft zu‘ 


Schwierigkeiten führen. 


Jetzt wissen Sie, warum ich bei 


meinen Progrämmchen immer 
PRINT CHR$(147) statt PRINT" 4 
verwende. 

Genauso austauschbar wie bei 
PRINT ist der ASCII-Code mit dem 
Gänsefuß-Modus bei der Tastenab- 
frage. 

Statt: 

10 GET A$ 

20 IF A$< >CHR$(65) THEN 10 
30 PRINT CHR$(88) 

können wir schreiben: 

10 GET AS 

20 IF A$<>"A" THEN 10 

30 PRINT "X" 


Beide Programme sind gleichwer- ' 


n Nach RUN rührt sich gar nichts. 
rst, 
wird (Zeile 20), druckt Zeile 30 den 
Buchstaben X. 

In Zeile 20 können wir natürlich 
statt des A jeden beliebigen Buch- 


staben, Zahl oder Zeichen nehmen. 


IF NOT ACII AND 64 THEN BILD=ACI1:G0T0 39 
IF ACII AND 32 THEN BILD=-ACII AND 95:G60T0 88 


BILD=SACII AND 63 


PRINT TAB(S> "BILOSCH.CODE: 


SoTO 29 
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wenn die ATaste gedrückt 


LISTen Sie einfach die 2. Version 
der drei Zeilen, fahren mit dem Cur- 
sor auf das Ä und verändern Sie es 
Ihren Wünschen entsprechend. 
Wie ich Sie einschätze, machen Sie 
dassicher auch mit den Funktionsta- 
sten. 

Nein? Dann machen Sie es mal. 
Sie haben nämlich Pech, so geht es 
nicht. Aber es geht, wenn Sie sich 


‚mit Absicht in die Lage begeben, 
die wie vorhin beschrieben, Flüche 


auslöst. Fahren Sie mit dem Cursor 


‚auf den. Gänsefuß, tippen Sie ihn 


noch einmal ein und drücken Sie 


‚dann eine Funktionstaste, Siehe da, 
‚es erscheint ein reverses Zeichen. 
‚Mit RETURN wird es »fixiert«, nach 
"RUN wird das X erst mit der verwen- 


deten Funktionstaste ausgelöst. 
Der Trick besteht also darin, 

durch eine ungerade Anzahl von 

Gänsefuß-Eingaben diesen Modus 


herbeizuführen. Es geht ebenso 
durch Drücken der INSERT(NST)- 
"Taste, allerdings nur für soviele Zei- 

chen, wie oft sie gedrückt worden 
ist. 


Im Gänsefuß-Modus 


erscheinen alle Steuer- 
und Funktionstasten in 
 reverser Darstellung 
_ Sie haben oben ein reverses Zei- 
chen für die Funktionstasten erhal- 


ten. Die Zeichen für die Farben und 
Cursorbewegungen, also alle »gän- 


gigen« Funktionen, kennen Sie in- 


zwischen sicher schon. Aber alle 


Programm 3. ASCII-Code Wandler | Steuer- und Funktionstasten? 


Es gibt zwei Möglichkeiten, diese 


_ Zeichen zu finden: 
. Die 1. Methode verwendet entwe- 
_ der ganz primitiv im Direkt-Modus 


den Befehl: PRINT " mit nachfolgen- 
dem Drücken der Steuer- oder 


2 Funktionstaste oder sehr elegant 


den Dreizeiler 


10 GET A$: IF A$=""THEN 10 
20 PRINT CHR$(34) A$ CHR$(84) 


ASC(AY) 


30. GOTO 10 


Ran 1409 


Kurse C 64/VC 20 
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Tabelle 3. Bildschirm-Code Tell. 3 


Machen wir die Probe: 

Mit Methode ] erhalten wir für 
»Rot« das reverse Pfund-Zeichen 
„Inder ASCII-Tabelle finden wir 
»Rot« unter 28. Zwei Spalten weiter, 
unter 28 + 64 = 92, steht dasselbe 
Zeichen. 

Das gilt auch für alle CTRL- 
Kombinationen, nichtnurfürdieder 
Farben. Bei beiden Computern ent- 
spricht dem CTRL- [9 das 
beim C 64 erzeugt CTRL- {:| ein 
DM . Alle Kombinationen der Buch- 
staben mit CTRL erzeugen diese 
Buchstaben in reverser Darstellung. 

Um das in einer kleinen prakti- 
schen Anwendung zu verdeutli- 
chen, schlage ich vor, dieselbe Auf- 
gabenstellung, die in Heft 5/84 so- 
wohl mit Tastencode-Abfrage (Pro- 
gramm Nummer l auf Seite 104/105) 
als auch mit Tastaturpuffer-Abfrage 
(Programm Nummer 4 auf Seite 135) 
gelöst wurde, noch einmal zu ver- 
wenden, jetzt aber die Gänsefuß- 
Methode einzusetzen. 

Um beim Eintippen des Pro- 
gramms unten sicherzustellen, daß 
allesklappt, habeich statt derrever- 
sen Zeichen die Tasten angegeben 
beziehungsweise umrahmt, die 
nach dem 1. Gänsefuß gedrückt 
werden müssen. 

Das Programm schaltet, wie die 
beiden anderen Versionen auch, 
die Bildschirm-Farben mit &1, £-2, f-3 
und @ um. 
Programm 
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410 PRINT "SHIFT und CLR/HOME 


& 
Di 


wm 10 


10 108 
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420 GET A$ 
430 IF A$= "" THEN 420 
440 IF A$= "f-} " THEN POKE 
36879,126 
450 IF A$= " £2 " THEN POKE 
36879,45 
460 IF A$= " £3 " THEN POKE 
36879,25 
470 IF A$= " |@) " THEN POKE 
36879,27 
480 GOTO 420 
Für den © 64 gelten in den Zeilen 
440 bis 470 andere POKE-Adressen: 
440 ..... POKE 53280,6:POKE 53281,7 
450 ..... POKE 53280,5:POKE 53281,2 
460 ..... POKE 53280,1:POKE 532811 
470 ..... POKE 53280,3:POKE 53281,1 
Ein letztes Problem bleibt uns 
noch. Wie schaffen wir es, daß wir 
im Gänsefuß-Modus auch Funktio- 
nen einsetzen können, die entweder 
keine eigene Taste haben (zum Bei- 
spiel 14 = Text, 8 = Lock) oder die 
beim Eintippen sofort die Funktion 
auslösen (zum Beispiel 13 = RE- 
TURN, 20 = DELete)? 


Sika TR] 


M 
= 
ee: 


‘ 
_— 
mm 


Uu 


wm 0 


Un 


m m 


Wiu 


m m 


1 


m 108 


m 14 


gr 


1 19 a3 2 


SE 


2 192 au 24 


sag 18 


m 19 ar a 


el = 
Dez Ze De 


m 14 ‘ ze 28 


135 


a 


a 


Rx 


diz 


m m 


[I 


m 


£ 


In 


(m: 


= 
= 


EI Ed EN EN a] al] a CN a OR 
04; 


ld a) 2 le SO RR] I] 
CH 


EA: 
A 


1 


S 





ALLE TASTEN- 


4 


ZEICHEN- UND STEVUERCSDES 





Hier müssen wir eine Methode an- 
wenden, die meine Kinder und ich 
»finkeln« getauft haben und zwar 
deswegen, weil wir sie zum ersten 
und einzigen Mal vom Commodore- 
Software-Spezialisten Andy Finkel 
im amerikanischen Handbuch ge- 
funden haben. 

Sein Trick besteht darin, daßerin 
einer ASCII-Tabelle das entspre- 
chende Zeichen für die Funktion 
heraussucht und es in mehreren 
Schritten an seinen vorgesehenen 
Platz bringt. 

Ich will Ihnen zeigen, was ich da- 
mit meine: 

Bitte, versuchen Sie mit der 
Gänsefuß-Methode die DELete- 
Taste in eine PRINT-Anweisung zu 
bringen 
10 PRINT " INST/DEL " 

Sie werden es nicht schaffen, da 
die DEL-Taste, statt ein reverses Zei- 
chen zu drucken, ihrer Funktion 
nachgeht und das vorherige Zei- 
chen löscht. 

Jetzt »finkeln« wir: 

1. Schritt: 

10 PRINT " " (mit RETURN abschlie- 
ßen) 

2. Schritt: 

Mit dem Cursor auf die Leerstelle 
zwischen den Gänsefüßen fahren. 
3. Schritt: 

Aus der ASCII-Tabelle das Zeichen 
der DEL-Taste holen (T). 


BEDEUTUNG 


LOCK 
(Sperre der Zeichen- 
satz-Umschaltung 


ASCII-CODE 








UNLOCK 
(Sperre 
aufheben) 


RETURN 13 


TEXT 
(2. Zeichen- 
satz) 


= 


DEL 
(Zeichen 
löschen) 


1587 
oO 


SHIFT RETURN 
(Cursor auf 


a 


Anfang der 
nächsten Zeile) 





GRAF 
(I. Zeichen- 142 
sätz) 


ımn —.k)_ıın 


4, Schritt: 

Die reverse Darstellung mit CTRL- 
REVON einschalten (der Cursor 
bleibt auf seiner Stelle) und das T 
drücken, mit RETURN abschließen. 
Jetzt steht das Zeichen drin und das 
Programm läuft. 

Um Ihnen den Schritt 3 für alle wi- 
derborstigen Funktionen zu erleich- 
tern, habe ich sie alle in der Tabelle 
2 zusammengefaßt. 

Da ich hoffe, daß Sie in Zukunft 
fleißig finkeln werden, muß ich Sie 
noch über einen lästigen Nebenef- 
fekt aufklären, der bei ein paar Fin- 
keleien auftritt. Einige der Funktio- 
nen, nämlich RETURN, DELete 
(schon wieder) und das SHIFT- 
RETURN wirken nicht nur im Pro- 
grammablauf wie vorgesehen, son- 
dern auch beim LISTen, was lästig 
sein kann. (Allerdings ergeben sich 
dadurch auch ungeahnte Möglich- 
keiten — siehe Artikel »Synthetische 
Steuerzeichen«.. Das geSHIFTete 
RETURN (ASCII-Code 14) ist sehr 
nützlich bei Platz-und Speicherman- 
gel. Sie können nämlichmit” 39 "in 
einer langen Programmzeile den 
Cursor mit nur drei Zeichen aufden 
Anfang der nächsten Zeile bringen, 
mit CHR$(4]) bräuchten Sie schon 
neun Zeichen, mit SPC(...) müssen 
Sie sehr genau die Cursorposition 
berechnen, mit einer entsprechen- 
den Anzahl von »Cursor-Rechts«- 


REVERSE 
DARSTELLUNG 


FINKELN 
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nn 
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SHIFT M 






SHIFT N 


Zeichen geht es auch nur mühsam. 
Also, nützlich ist SHIFTTRETURN 
durchaus! 

Nur: Beim LISTen wird es auch 
ausgeführt und die Zeile, in der es 
steht, sieht recht blöd aus. Zusätzlich 
kann eine derart geLISTete Zeile 
nicht mehr geändert werden, son- 
dern muß bei Verbesserungen völ- 
lig neu geschrieben und gefinkelt 
werden. Alles Gute hat seinen Preis! 

Soviel sei zur Methode gesagt. 
Jetzt wollen wir zur Erholung und zur 
Übung ein kleines Spiel program- 
mieren, in dem wir (fast) alles Ge- 
lernte auch anwenden. 

Eine kleine Seltenheit ist bemer- 
kenswert: Das Programm ist für VC 
20 und C 64 identisch! 

Die Spielaufgabe soll darin beste- 
hen, die ersten sieben Buchstaben 
des Alphabets möglichst in der rich- 
tigen Reihenfolge auf den Bild- 
schirm zu bringen. 





Das Finkel-System 





Klingt einfach, aber die Buchsta- 
ben sollen in zufälliger Reihenfolge 
auftauchen. Zusätzlich hat der Spie- 
ler, falls der Buchstabe nicht der 
Reihenfolge entspricht, lediglich 
die Möglichkeit, ihn mit der DEL- 
Taste zurückzuweisen, wenn er 
schnell genug ist. Das Programm 
zählt die Felder und zeigt am Schluß 
das Ergebnis an. 

Wir brauchen dazu: 

— Einen Zufalls-Buchstaben-Erzeu- 
ger von A bis G (ASCII-Code 65 bis 

) 

— einen Buchstaben-Drucker 

— einen Buchstaben-Reihenfolge- 
zähler 

— eine Möglichkeit, die DEL-Taste 
zu drücken und damit den gedruck- 
ten Buchstaben rückgängig zu ma- 
chen 

— einen Fehlerzähler 

— eine Prüfung, ob der letzte Buch- 
stabe (7) erreicht ist. 

Normalerweise müßte ich jetzt ein 
Flußdiagramm zeichnen und »struk- 
turiert« vorgehen, so wie die ausge- 
zeichnete Serie in diesem Heft lehrt. 
Man möge mir aber verzeihen, daß 
ich aus Erklärungsgründen in ein- 
zelnen Schritten vorgehe, welche 
uns erlauben, jederzeit Zwischenre- 
sultate mit Probeläufen zu überprü- 
fen (Programm 2, siehe Listing). 
Auf geht's! 
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Den Buchstaben-Erzeuger und 
-drucker erhalten wir durch Zeile 
50, welche für eine Variable A zufäl- 
lige ASCII-Codes zwischen 65 und 
7l erzeugt, sowie durch Zeile 70, die 
das Zeichen für den ASCII-Code 
ausdruckt. 

50 A=INT(RND(0)*N) +65 
70 PRINT CHRS$(A); 

Für weniger Versierte sei gesagt, 
daß RND(0) eine Zufallszahl zwi- 
schen 0 und 0,99 erzeugt, mit 7 multi- 
pliziert gibt daseine Zahl zwischen 0 
bis 6,93. Die Funktion INT macht 
daraus eine ganze Zahl, zwischen 0 
und 6, mit 65 addiert letztlich eine 
Zahl zwischen 65 und 71 — ASCII- 
Werte der Buchstaben A bis G. 

Den Ausdruck der Buchstaben 
nebeneinander erreichen wir 
durch das Semikolon in Zeiel 70, die 
laufende Wiederholung durch ei- 
nen Rücksprung in Zeile 320. 

320 GOTO 50 

Damit esnichtzu schnell geht, ver- 
zögern wir das Ganze mit einer War- 
teschleife in Zeile 80. 

80 FOR T=1 TO 1000:NEXTT 

Probieren Sie es mit RUN aus. Zei- 
le 80 übrigens erlaubt Ihnen später 
den Schwierigkeitsgrad zu verän- 
dern. 

Die geforderte richtige Reihenfol- 
ge der Buchstaben A, ich nenne sie 
hier R, setzen wir am Änfang auf 65 
und erhöhen sie schrittweise um 1. 

3S0OR = 65 
SOR=R+I 

In Zeile 60 prüfen wir, ob die End- 
zahl 71 für das G überschritten ist. 
Wenn ja, springen wir auf Zeile 400, 
mit der wir das Spielende anzeigen. 

SOIFR > 7I THEN 400 
400 PRINT " 
SPIELENDE" aEz 

Bitte RUNnen Sie das Fragment 
wieder zur Probe. 

Jetzt kommt die Beeinflussung der 
Reihenfolge mit der DEL-Taste. Wie 
gelernt fragen wir diese Taste mit ei- 
ner GET-Schleife ab (Zeilen 100,110), 
ihre Lösch-Wirkung erreichen wirin 
Zeile 120 durch einen PRINT-Befehl 
(mit Semikolon!). Nach Drücken der 
DEL-Taste darf der Reihenfolge- 
Zähler der Zeile 310 natürlich nicht 
wirken, deshalb springen wir schon 
vorher aus der Zeile 210 zurück. 
100 GET A$ T 
110 IF AS< > MM " THEN 300 
120 PRINT" WI"; 

210 GOTO 50 

Sie sehen oben, daß ich für die 

Abfrage der DEL-Taste die Finkel- 
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Methode vorschlage. Die anderen 
Methoden gehen natürlich auch. 

Nach RUN springt das Programm 
aufdienoch nicht existierende Zeile 
300 (was prompt zur Fehlermeldung 
führt), es sei denn, Sie drücken 
rechtzeitig die DEL-Taste. 

In der Zeile 300 wollen wir prüfen, 
ob ein Fehler gemacht wurde, das 
heißt ob A mit der Reihenfolge R 
übereinstimmt. Im Fehlerfall wird 
die Fehlerzahl Fum 1 erhöht. Vorher 
aber muß F auf 0 gesetzt werden. 

20 F=0 
S0o0IFA<>RTHENF=F+1 

Sie können jetzt schon das Spiel 
üben. Aber es fehlen noch ein paar 
Feinheiten. 

10 PRINT CHR$(147) 

410 PRINT F "Fehler" 

Zeile 10 ist klar, Zeile 410 druckt 
am Spielende die Fehlerzahl F aus. 

Aber es gibt noch einen Fehler 
des Spielers, nämlich wenn er aus 
Versehen einen richtigen Buchsta- 
ben zurückweist. Deshalb fragen 
wir nach erfolgtem Drücken der 
DEL-Taste in den Zeilen 100 bis 120 
nach, ob der Buchstabe tatsächlich 
falsch war. Wenn nicht, wird die Feh- 
lerzahl F um 1 erhöht. 

200IFA=RTHENF=F+1 

Damit uns nach RUN der erste 
Buchstabe nicht überrascht, verzö- 
gern wir sein Erscheinen mit 

40 FOR T=1 TO 600: NEXTT 

Zum Finkeln-UÜben arrangieren 
wir die Anzeige des Spielendes und 
der Fehler etwas um. Älle Anwei- 
sungen sollen in nur einer Zeile ste- 
hen. Löschen Sie bitte die Zeile 410. 
In Zeile 400 wird gefinkelt und zwar 
mit dem Zeichen für SHIFT RE- 
TURN, welches laut Tabelle 2 mit 
SHIFT M erzeugt wird. 
400 PRNT' WIE DAS 
SPIEL IST ZU ENDE’ WINE] 
F "FEHLER". 

Bei LIST und bei Ausdruck mit ei- 
nem Drucker sehen die gefinkelten 
Zeilen 110, 120 und 400 natürlich ku- 
rios aus und wie gesagt, sie lassen 
sich bei einem Tippfehler nicht kor- 
rigieren, sondern müssen neu ge- 
schrieben werden. 


Der Bildschirm-Code 


Der Vollständigkeit halber will ich 
noch die letzte der vorher genann- 
ten drei Methoden, ein Zeichen auf 
den Bildschirm zu bringen, erwäh- 
nen, insbesondere, weil der dabei 
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verwendete Bildschirm-Code (auch 
Video-Code genannt) oft zu Ver- 
wechslungen mit dem ASCII-Code 
führt. 

Auf Anhieb ist es auch nicht einzu- 
sehen, warum Commodore einen 
anderen Code verwendet, wennein 
Zeichen direkt aufden Bildschirm — 
oder genauer gesagt in den Bild- 
schirm-Speicher — gePOKEt wer- 
den soll. 

Der Grund dafür liegt darin, daß 
dem ASCII-Code nicht nur Zeichen 
zugeordnet sind, sondern auch Far- 
ben und Funktionen. Außerdem 
sind im ASCII-Code die reversen 
Zeichen nicht enthalten, sondern 
müssen — wie Sie jainzwischen wis- 
sen — jeweils umgeschaltet werden. 
Das alles ist für ein Betriebssystem 
viel zu kompliziert. 

Es ist viel einfacher, im Festspei- 
cher (ROM) alle Zeichen der zwei 
Zeichensätze fest zu verankern, von 
wo sie das Betriebssystem heraus- 
holen und auf den Bildschirm brin- 
gen kann. 

Die Reihenfolge der Zeichen und 
ihr Code sehen Sie in der Tabelle 3. 
Sie ähnelt in mehreren Bereichen 
der ASCII-Reihenfolge, einige Spal- 
ten sind sogar identisch. Das macht 
eine Umrechnung — auch für das 
Betriebssystem — sehr einfach. 

Folgende Blöcke der beiden Co- 
dearten entsprechen einander: 





Ein Programm zur Umrechnung 
von ASCII-Code in Bildschirm-Code 
sieht dementsprechend aus wie in 
Programm 3 (VC 20 und € 64). 

Dabei habe ich als Variable ge- 
wählt: 

— ACII = ASCII-Code 
— Bild = Bildschirm-Code 

Im Hinblick darauf, daß unser 
Hauptthema die Abfrage der Tasta- 
tur ist, soll uns dieser Ausflug genü- 
gen. 

(Dr. Helmut Hauck) 
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solches Übersetzungsprogramm auch für ganz andere 
Aufgaben eingesetzt werden Kann. 


n den vorausgehenden Folgen 
wurde bereits erwähnt, daß die 
strukturierte Programmierung 
vor allem Vorteile in bezug auf War- 
tung, Änderungen und Erweiterbar- 
keit von Programmen bietet. Dies 
gilt auch für das Programm Strubs. 
Um in den Genuß dieser Vorteile zu 
gelangen, ist allerdings der Zugang 
zum Quellprogramm erforderlich. 
Wenn Sie sich das in Heft 5 abge- 
druckte Objektprogramm ansehen, 
werden Sie feststellen, daß es auch 
nicht viel aussagekräftiger als ein 
unkommentiertes Assemblerlisting 
ist. Wenn Sie an der Entwicklung ei- 
gener Programmerweiterungen in- 
teressiert sind, sollten Sie sich des- 
halb beim Verlag das Quellpro- 
gramm besorgen. Da ich hier davon 
ausgehen muß, daß die meisten Le- 
ser das Quellprogramm nicht besit- 
zen, lohnt es sich gar nicht erst, sy- 
stematisch die einzelnen Pro- 
grammteile vorzustellen. 
Statt dessen wollen wir nur die für 
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Ein Precom- 
piler für Basic- 
Programme 
(Teil 4) 


In der heutigen letzten Folge wollen Wir 
einige Teile des Programmes Strubs genauer ansehen und unter- 

suchen, wie man das Programm um zusätzliche Funktionen erweitern Kann. 
Dabei werden wir sehen, dab ein 


Programmerweiterungen wichtig- 
sten Programmelemente vorstellen 
und anhand einiger exemplarischer 
Erweiterungen, die auch, ohne sich 
weitere Gedanken zu machen, ein- 
fach eingetippt werden können, auf- 
zeigen, wie man Erweiterungen im- 
plementieren kann und was dabei 
zu beachten ist. Aus dem gleichen 
Grund geben wir nur die Änderun- 
genan, die im Objektprogramm vor- 
zunehmen sind. Eine Anpassung an 
das Quellprogramm dürfte keine 
Probleme bereiten. 

Achten Sie bei allen Programm- 
änderungen darauf, daß das geän- 
derte Programm abgespeichert 
wird, bevor es zum ersten Mal ge- 
startet wird, da das Programm den 
Zeiger auf das Programmende ver- 
stellt, Sollte das Programm durchEr- 
weiterungensolang werden, daßes 
in den Editbereich hineinreicht, 
kann der Anfang des Editbereichs 
in Schritten zu 256 Byte nach oben 
verschoben werden, um Platz zu 


schaffen. Dazu ist in den Zeilen 70 
bis 80 die Zahl 4D überall, wo sie auf- 
taucht, durch eine größere Zahl (je- 
weils 4 für jedes Kilobyte) zu erset- 
zen (vgl. auch den Schluß der 3. 
Folge). 


Die wichtigsten 
Programmelemente 


Eine grobe Übersicht über den 
Aufbau des Programms haben wir 
bereits in der 2. Folge gegeben. Be- 
vor wir uns nun mit einzelnen Erwei- 
terungen beschäftigen, wollen wir 
zunächst einmal die wichtigsten Pro- 
grammelemente vorstellen, dieman 
für Änderungen und Erweiterungen 
des Programms benötigt. Wie be- 
reits erwähnt, liest Strubs das Quell- 
programm zweimal vom Änfang bis 
zum Ende durch. Um Zeit zu sparen, 
wird im 1. Lauf nur jeweils der An- 
fangeiner Zeile untersucht. Deshalb 
müssen alle Befehle, die bereits im 
1. Lauf zu behandeln sind, auch am 
Anfangeiner Zeile stehen, während 
Befehle, dienurim2. Laufbehandelt 
werden, überall stehen können. Ein 
Beispiel: 

Die Definition von Marken muß 
am Zeilenanfang erfolgen, während 
der Aufrufvon Marken anjederStel- 


Auscabe 7/luli:1984 








le erfolgen kann. Die Aufgabedes]. 
Laufs besteht darin, verschiedene 
Tabellen anzulegen, mit deren Hilfe 
dann im 2. Lauf das endgültige Ob- 
jektprogramm erzeugt wird. 

Jede dieser Tabellen besteht aus 
einem oder mehreren Arrayls), ei- 
ner Variablen, deren zweiter Buch- 
stabe ein »Mk für »Maximal« ist und 
die Dimension, das heißt die maxi- 
male Zahl von Einträgen festlegt, 
und aus einer Variablen, deren 
zweiter Buchstabe ein »P« für »Poin- 
ter« ist und die aufden jeweils näch- 
sten freien Listenplatz zeigt. Bei 
Speicherplatzproblemen brauchen 
nur die Werte der Dimensionsvaria- 
blenim InitTeil geändert zu werden. 
Möchte man zum Beispiel mehr als 
99 Marken (die jetzige Maximalzahl) 
benutzen, dann schreibt man in Zei- 
le 45060 zum Beispiel »MM=150....«. 

Die Tabellen werden in den Zei- 
len 45050 bis 45200 definiert (Bild ]). 
Die Dimension des Stacks bestimmt 
die mögliche Schachtelungstiefe. 
Dazu kommen die Tabellen derneu- 
en Befehle (Zeile 45260 bis 45274) 
und der Fehlermeldungen (Zeile 
45480 bis 45514), 


nächsten zu lesenden Zeichens. Im 
2. Lauf wird zeilenweise das Objekt- 
programm erzeugt, wobei die je- 
weils aktuelle Zeile in der Varia- 
blen Z$ aufgebaut wird, Dabei ent- 
halten die beiden ersten Zeichen 
von 2$ Low- und Highbyte der Zei- 
lennummer (so wie sie später im 
Speicher steht), und das letzte Zei- 
chen der fertigen Zeile besteht aus 
dem Zeichen CHR$(0). 

Die relevanten Zeichencodes, auf 
die Strubs reagiert, werden in den 
Zeilen 45240 bis 45254 definiert (Bild 
2). Die Variable ZA enthält die 
Adresse des Anfangs der Zeile, die 
gerade bearbeitet wird. In EA steht 
die Startadresse des Editbereichs. 

Damit kommen wir zu den für Er- 
weiterungen wichtigen Modulen 
von Stnubs. Die Prozedur »NEXT- 
CHAR« sucht ab Adresse NC das 
nächste relevante Zeichen des 
Quellprogrammtextes und liefert 
dessen Codein.der Variablen ©, Da- 
bei werden Leerzeichen (Zeile 250) 
und Kommentare (Zeile 280-295) 
überlesen. Strings werden direkt in 
die Ausgabezeile Z$ übertragen 
(Zeile 350). Der Zeiger NC wird auf 
das nächste zu lesende Zeichen ge- 
setzt. Die Prozedur »HOLNAME« 


Zeichen hinter dem Namen (das ist 
außer beim Blank das Trennzei- 
chen), und NC zeigt auf das nächste 
Zeichen. 

Die Prozedur »SCHREIBZEILE« 
(Zeile 550-580) generiert aufderDis- 
kette aus den nacheinander einge- 
gebenen Zeilen Z$ das zusammen- 
hängende Objektprogramm und 
gibt die Nummer der aktuellen Zei- 
le auf dem Bildschirm aus. Die Va- 
riable AA (Linkadresse) darf außer- 
halb dieser Routine nicht verändert 
werden! 

Die Prozedur »ERROR« (Zeile 8050 
bis 8099) erwartet als Eingabe einen 
Fehlercode ER. Dabei handelt es 
sich um den Index der Fehlermel- 
dung in der Tabelle der Fehlermel- 
dungen. Die Zeilennummer und die 
Fehlermeldung werden auf dem 
Bildschirm ausgegeben und zu- 
gleich in eine Fehlertabelle einge- 
tragen, diemanssich nach der Über- 
setzung auf Bildschirm oder 
Drucker ausgeben lassen kann, Zu- 
sätzlich wird die Fehlermeldung in 
die Ausgabezeile Z$ geschrieben, 
sodaß sie auch im Objektprogramm 
erscheint. Die Übersetzung wird mit 
der folgenden Zeile fortgesetzt, 

Die Prozedur »ABBRUCH« (Zeile 
50000 bis 50030) sorgt für einen kon- 
trollierten Abbruch der Überset- 
zung. Sie erwartet ebenfalls als Ein- 





Bild 2. Relevante Zeichencodes 





Dem schrittweisen Lesen des 
Quellprogramms dienen die Varia- 
blen C und NG. Die Variable C ent- 
hält den Code desjeweils zuletzt ge- 
lesenen Zeichens, wobei der Wert 0 
ein Zeilenende markiert. Die Varia- 
ble NC enthält die Adresse des 
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(Zeile 750-830) liest ab aktueller 
Adresse NC einen Namen (zum Bei- 
spiel Befehl, Label) und zwar bis ei- 
nes der Trennzeichen »:«, »,«, Blank 
oder Zeilenende erscheint. Der Na- 
me wird in der Variablen T$ ausge- 
geben, C enthält das erste relevante 


gabe den Fehlercode ER und gibt 
die entsprechende Fehlermeldung 
aus. Danach wird die Tabelle der 
bisher bemerkten Fehler ausgege- 
ben, offene Files ordnungsgemäß 
geschlossen und Strubs neu gestar- 
tet. 


Fe Tees TEE 


Strubs 


Die Prozedur »WARTEN« (Zeile 
49550 bis 49570) fordert den Benut- 
zer auf, eine Taste zu drücken und 
wartet auf den Tastendruck. 

Die Prozedur »INIT« (Zeile 45050 
bis 45999) enthält die Definition der 
Variablen und Tabellen sowie die 
Interpretererweiterung. 

Im»MENÜ« (Zeile 40050 bis 40495) 
können die verschiedenen Funktio- 
nen angewählt werden. 

Die Prozeduren »BEFEHLE IM |. 
LAUF« (Zeile 1550-2497) und »BE- 
FEHLEIM 2. LAUF« (Zeile 2550-3640) 
werden von Strubs aufgerufen, so- 
bald im Quellprogramm das Erken- 
nungszeichen »!« für Befehle (Code 
in der Variablen BE) entdeckt wird. 
Sie holen den Namen des Befehls, 
suchen diesen in der Befehlstabelle 
und rufen entsprechend dem Index 
(+1) des Befehls in dieser Tabelle 
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ein Unterprogramm auf. Falls der 
Befehl nicht in der Tabelle gefun- 
den wird, wird eine entsprechende 
Fehlermeldung ausgegeben. Im |. 
Lauf kommt noch die Ausgabe der 
Blockstruktur hinzu. Hierzu dient die 
Variable In (für Indentmodus). IN=0 
bedeutet, auf der gleichen Schach- 
telungsebene zu bleiben. 

Damit haben wir nun das notwen- 
dige Wissen zusammen, uman dem 
Programm Strubs einige Änderun- 
gen und Erweiterungen vorzuneh- 
men. 


Andere Anwendungen 


Bei den Programmtexten, die 
Strubs übersetzt, handelt es sich 
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gild 4. Beis 





zwar um erweiterte Basicprogram- 
me, aber nichtsdestoweniger um Ba- 
sicprogramme. Deshalb ist es rela- 
tiv einfach, Strubs auch zur Bearbei- 
tung ganz normaler Basic-Program- 


- me einzusetzen. Zwei sinnvolle Mög- 


lichkeiten wollen wir im folgenden 
vorstellen. 

1. EinSPEED-UP-Programm, umnor- 
male Basicprogramme schneller zu 
machen. 

2. Ein Programm, das besser lesba- 
re Listings erstellt. 

Dabei ist zu beachten, daß die Än- 
derungen, die wir dazu vornehmen, 
nicht wie die Makro-Funktion eine 
Erweiterung des eigentlichen Pro- 
grammes Strubs und seiner Funk- 
tion darstellen, sondern daß wir 
zwei völlig neue Programme mit völ- 
lig neuen Aufgaben erhalten. Des- 
halb sollten auch die erhaltenen 
Programme unter neuen Namen, 
beispielsweise »SPEED-UP« und »LI- 
STER«, abgespeichert werden. Das 
Arbeiten mit diesen Programmen 
unterscheidet sich nicht von der Är- 
beit mit dem »normalen« Strubs- 
Programm. 


Schnelleres Basic 


Zunächst wollen wir Strubs so än- 
dem, daß es normale Basicpro- 
gramme in Programme übersetzt, 
die keine Leerzeichen und Kom- 
mentare mehr enthalten und da- 
durch schneller ablaufen. Wie Sie 
sich erinnern werden, benutzt 
Strubs für Kommentare, die gelöscht 
werden sollen, ein eigenes Zeichen 
»"«., Kommentare, die mit REM ge- 
kennzeichnet werden, bleiben im 
Objektprogramm erhalten. Da 
Strubs bereits alle Blanks entfernt 
(außer in Strings), brauchen wir nur 
noch dafürzu sorgen, daß Strubs auf 
das REM-Token reagiert wie bisher 
auf das Kommentarzeichen »'«. Die 
relevanten Zeichencodes, auf die 
Strubs reagiert, werden in den Zei- 
len 45250 bis 45254 definiert (Bild 2). 
Wir brauchen nur in Zeile 45250 das 
KO=ASCA'„ durch KO=143 (143 ist 
das REM-IToken) ersetzen und schon 
ist das Speed-Up-Programm fertig. 
Genauso können Sie die Erken- 
nungszeichen für Labelund die neu- 
en Befehle ändern. Dies ist, um Kon- 
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Strubs 





flikte zu vermeiden, für den Fall 
sinnvoll, daß Sie mit Strubs Program- 
me für Interpretererweiterungen 
übersetzen, die ihrerseits »!« oder 
das Pfundzeichen als Erkennungs- 
zeichen für ihre neuen Befehle be- 
nutzen. 
Listings 

Wollen Sie im »64’er« eigene Pro- 
gramme veröffentlichen? Dann kön- 
nen Sie den Lesern viel Ärger er- 
sparen, wenn Sie das Listing vorher 
mit dem Programm »LISTER« aufbe- 
reiten. »LISTER« übersetzt Basic- 
Programme in Programmtexte, in 
denen die schwer entzifferbaren 
Steuer- und Grafikzeichen inner- 
halb von Strings durch lesbare Wor- 
te »« CDOWN)« oder »HOME)« er- 
setzt sind (Bild 3). 

Dazu ändern wir eine Zeile inner- 
halb der Prozedur »NEXTCHAR«. In 
Zeile 350 werden gelesene Zeichen 
mit dem ASCII-Code C innerhalb 
von Strings direkt in die Ausgabezei- 
le Z$ übertragen. Wenn wir nun in 
Zeile 350 2$=2Z$+CHR$(C) durch 
2$=2$+C$(C) ersetzen, dann kön- 
nen wir ein Array C$(255) definie- 
ren, das in jedem ASCII-Wert den 
String enthält, der dafür im Objekt- 
programm erscheinen soll. Die Defi- 
nition dieses Arrays gehört in das 
Modul »INITIALISIERUNG«; 

45300 DIM C$(255);FOR I=0 TO 
255:C$()=CHR$M:NEXT 

Damit haben wir zugleich unser 
Array mit den normalen Werten vor- 
besetzt. Jetzt bleiben nur noch die 
Ersetzungen: 

45310 
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die Zeilen zu lang werden. Deshalb 
sollten die Worte möglichst kurz ge- 


wählt werden. 
Makros Befehle demonstrieren: 
TITTEN ee MOEIDMAKRO:NNAMEESYSU ESS 
Aneinemetwasumfangreicheren PEEK (878) 
Beispiel wollen wir nun zeigen, wie _... 
man neue Strubs-Befehle imple- 200 PRINT X:!M,NAME:PRINT X 
mentiert und wie man die Prozedu- Die Definitionszeile 10 wird ge- 
zen von Strubs benutzen kann. Dies löscht, da sie nur für die Überset- 
soll am Beispiel einer Makro- zung notwendige Informationen ent- 
Funktion demonstriert werden. hält. Die Zeile 200 mit dem Makro- 
Makros, vor allem von Ässem- Aufrufsiehtim Objektprogramm fol- 
blern her bekannt, stellen so etwas gendermaßen aus: 
wie Abkürzungen für kurze Pro- an PRINTX:SYS833:X = PEEK(873): 


und für den Aufruf eines Makros 
den Befehl »!M« wählen. Ein Beispiel 
mag die Wirkungsweise der neuen 





45a verringert sich die Tipparbeit und 


Einige Beispiele für Makros und 
deren korrekte Benutzung sowie 
das sich ergebende Objektpro- 


vor allem werden die Quellpro- 
C$(28)="(ROT)":C$@81)="(BLAU)" 
USW. 


gramme übersichtlicher. 
Hier können Sie nun jedem Zei- 

chen ein beliebiges Wort zuordnen: 
Den ASCII-Code der einzelnen Zei- 
chen finden Sie im C-64 Handbuch 
auf S. 135 oder Sie können ihn ein- 
fach durch Eingabe von 
PRINT ASC("X”) 
feststellen, wobei»X«für das interes- 
sierende Zeichen steht. Beisehr vie- 
len Zeichen innerhalb eines Strings 
kann es allerdings vorkommen, daß 


In der Makro-Definition wird ein gramm zeigt Bild 4. Vor allem ist dar- 
Makro-Name definiert und diesem aufzu achten, daß Makronamen wie 
ein Programmstück zugeordnet. alleBefehls-und Labelnamenmitei- 
Überall, wo nun im Quellprogramm nem der Trennzeichen abgeschlos- 
ein Makro aufgerufen wird, er- sen werden müssen. Insbesondere 
scheint im Objektprogramm an die- darf bei der Makrodefinition und 
ser Stelle das entsprechende Pro- beim Aufruf mit nachfolgenden Pa- 
grammstück. Ein einmal definiertes rametem (Spritemakros in Zeile 120 
Makro kann wie ein Label beliebig und 130) nicht das Blank hinter dem 
oft aufgerufen werden. Makronamen vergessen werden! 

Für die Definition eines Makros Jede Makrodefinition benötigt eine 
wollen wir den Befehl »DMAKRO« eigene Zeile. Eine Übergabe von 
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Strubs 


Parametern an ein Makro ist.nicht 
möglich. Achten Sie bei der Arbeit 
mit Makros darauf, daß die entste- 
henden Zeilen des Objektpro- 
gramms nicht zu lang werden. Zei- 
len, die länger als 80 Zeichen sind, 
lassen sich nicht mehr editieren. 
Zeilen, die länger als 256 Zeichen 
werden, führen zum unkontrollier- 
ten Abbruch der Übersetzung mit 
»Stringtoolongerror«. IndiesemFall 
kann man mit »GOTO 50000« die 
Nummer der verantwortlichen Zeile 
erfahren und offene Files schließen. 

Um die Übersetzung zu ermöglı- 
chen, muß im 1. Lauf eine Tabelle 
der Makronamen und der zugehöri- 
gen Programmausschnitte angelegt 
werden. Im 2. Laufwerden dann alle 
Aufrufe durch den zugehörigen Text 
ersetzt. Die Verteilung auf zwei Läu- 
fe bietet den Vorteil, daß ein Makro 
(ebenso wie Labels) auch schon vor 
der Definition aufgerufen werden 
kann 

Zur Implementation sind folgende 
Schritte erforderlich: Zunächst muß 
dem Übersetzungsprogramm mit- 
geteilt werden, daßeszweineueBe- 
fehle gibt. Dann müssen wir die not- 
wendige Tabelle definieren und 
auch entsprechende Fehlermeldun- 
gen vorsehen. Diese Erweiterungen 
gehören in den INIT-Teil, 

Schließlich muß noch dafür ge- 
sorgt werden, daß Strubs weiß, wie 
esim l.und 2. Laufaufdieneuen Be- 
fehle zu reagieren hat. 

Die Befehlstabelle wird in Zeile 
45265 definiert, Hier erhöhen wir 
die Zahl der Befehle um 2und fügen 
dann noch eine DATA-Zeile mit den 
beiden neuen Befehlsnamen ein: 
45265 BM=18:... 

45275 DATA DMAKRO,M 

Wählt man Befehlsnamen, die re- 
servierte Basic-Worte enthalten, 
dann müssen die Tokens berück- 
sichtigt werden (wie dies für IF in 
der Zeile 45271 geschieht). Für ei- 
nen Befehl »DEFMAKRO« wäre zum 
Beispiel 
BE$(4)=CHR$(150)+"MAKRO" zu 
setzen (150=DEF-Token). 

Für die Tabelle wählen wir ein Ar- 
ray NA$(NM,|), da der Name M be- 
reits für die Markentabelle verge- 
ben ist. Die Dimension (..,0). soll’ die 
Namen und die Dimension (...\) den 
zugehörigen Text aufnehmen. 


45155 NM=40:DIM NAS(NM)): 
NP=0 
min II 
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Damit können 41 Makros definiert 
werden. Indem wir die ZahlderFeh- 
lermeldungen von 9 auf Il erhöhen, 
erhalten wir die beiden neuen Feh- 
lercodes 10 und 11 für »zu viele Ma- 
kros« und »undefiniertes Makro«, 
45480 EM = 11:DIM... 

45500 FOR I=0 TO EM:READ ... 
45515 DATA "ZU VIELE MAKROS! 
"UNDEFINIERTES MAKRO" 

Nun müssen wirin die beiden Mo- 
dule »BEFEHLE IM |, LAUF« bezie- 
hungsweise »BEFEHLE IM 2. LAUF« 
jeweils zwei Routinen für die neuen 
Befehle einfügen. Da die beiden 
Verteilerzeilen bereits voll sind, le- 


gen wir zwei neue Verteilerzeilen. 


an, die dann aber auch gleich für 10 
weitere.neue Befehle Platz bieten: 
1571 IFI>14 THEN ON -]4 GOSUB 
2350,2380 

für den 1, Lauf und 

2571 IFI>14 THEN ON I-14 GOSUB 
3700,3750 

für den 2. Lauf. 

Die Routine für »!’DMAKRO« im |, 
Lauf soll zunächst prüfen, ob noch 
Platz in unserer Makro-Tabelle ist 
und, fallsnicht, mit entsprechendem 
Fehlercode die Abbruch-Routine 
anspringen: 

2350 IF NP>NM THEN ER=[10: 
GOTO 50000 

Jetzt können wir mit Hilfe der Pro- 
zedur »HOLNAME« den Makro- 
Namenlesen und inunserer Tabelle 
speichern: 

Sr 2$=""\GOSUB750:NA$(NPO) 
—E 

Nun übertragen wir den Rest der 
Definitionszeile mit Hilfe von »NEXT- 
CHAR« nach Z$ (dadurch werden 
auch Strings mit übertragen. Als 
Ausgabezeile dient Z$ ja erst im 2. 
Lauf). 

2360 2$=Z$+CHR$(C)GOSUB 
250:IF C<>0 THEN 2360 

Nun brauchen wir nur noch den 
Text in die Tabelle aufzunehmen, 
den Zeiger zu erhöhen und den In- 
dentmodus angeben. 
ne NASNPI)=2Z$:NP=NP+1:IN= 


2375 RETURN 

Der Aufruf eines Makros interes- 
siert im 1. Lauf nicht, also: 
2380 IN=0:RETURN 

Im 2. Lauf soll die Definitionszeile 
gelöscht werden. Dazu löschen wir 
den Ausgabestring und weisen C 
den Code für Zeilenende zu: 
3700 2$="":C=0:RETURN 





Beim Aufruf eines Makros mit »!M« 
holen wir zunächst den Namen des 
Makros mit »HOLNAME« und su- 
chen ihn in der Tabelle: 

3750 GOSUB 750 
3755 FOR I=0 TO NP: IF NAS(,O) 
<>T$ THEN NEXT 

Falls der Name nicht gefunden 
wird, erfolgt ein Sprung zur Error- 
Routine mit dem Code für »undefi- 
niertes Makro«: 

3760 IF I>NP THEN ER= 11: GOTO 
8050 

Nun ist nur noch das definierte 
Programmstück in die Ausgabezei- 
le zu übertragen: 

3760 2$=2$+ NA$(,): RETURN 

Dadurch, daß diese Makro- 
Erweiterung Zeile für Zeile bespro- 
chen wurde, um zu zeigen, wie man 
die von Strubs vorgegebenen Proze- 
duren benutzen kann, ist vielleicht 
der Eindruck entstanden, eine sol- 
che Erweiterung sei relativ kompli- 
ziert. Wenn Sie sich aber das Ganze 
noch einmal genauer ansehen, kön- 
nen Sie feststellen, daß für die Im- 
plementation neuer Befehle im Prin- 
2. ME drei Schritte erforderlich 
sind: 

l. Eintrag der neuen Befehlsnamen 
indie Befehlstabelle 

2. Einfügen der entsprechenden 
Routinen 

3. Eintrag der Adressen dieser Rou- 
tinen in die beiden Verteilerzeilen 

Die ganze Arbeit desSuchensund 
Decodierens übernimmt Strubs au- 
tomatisch, 

Wie neue Funktionen (beispiels- 
weise die Ausgabe der Makro- 
Tabelle) in das Menü aufgenommen 
werden können, habensie bereits in 
der letzten Folge am Beispiel der 
RENUMBER-Funktion gesehen. 

Eine Zusammenstellung der oben 
besprochenen Erweiterungen fin- 
den Sie in Bild 5. 


Strubs und Interpreter- 
erweiterungen 


Wollen Sie mit Strubs Programme 
für Interpretererweiterungen bear- 
beiten, dann sind einige weitere 
Dinge zu beachten. Entfernen Sie 
zunächst wie in Folge 3beschrieben 
die Interpretererweiterung von 
Strubs, 

Falls die Erweiterung, die Sie be- 
nutzen wollen, nicht in den Editor 





Bild 7. Berichtigung zur Folge 2, Seite 121 


eingreift, sondernihre neuen Befeh- 
le durch besondere Zeichen (mei- 
stens »!«) gekennzeichnet werden, 
dann ändern Sie wie bereits oben 
beschrieben .die entsprechenden 
Erkennungszeichen, die Strubs be- 
nutzt. 

Bei Erweiterungen wie Simon’s 
Basic, die in den Editor eingreifen 
und die neuen Befehle wie der 
Basic-Interpreter durch eigene To- 
kens darstellen, ist es am einfach- 
sten, den Strubs-Befehlen, deren 
Namen solche Befehle enthalten, 
neue Namen zu geben. Im Fall von 
Simon's Basic sind davon beispiels- 
weise Strubs-Befehle wie »!IREPE- 
AT«, »!UNTIL« oder »IELSEk« etc. be- 
troffen. 

Dazu sind nur die Namen in den 
DATA-Zeilen 45272 bis 45274 zu än- 
der. Sie können die betroffenen 
Strubs-Befehle aber auch wie oben 
am Beispiel von »DEFMAKRO« be- 
schrieben aus den Tokens zusam- 
mensetzen. Dabei ist aber zu be- 
rücksichtigen, daß die Tokens von 
Simon’s Basic aus zwei Zeichen und 
nicht wie die normalen Tokens aus 
nur einem Zeichen bestehen. 

Eine Liste der von Strubs benutz- 
ten Variablen bietet Bild 6. Dabei 
kennzeichnet das Zeichen »*« Zei- 
lennummem, in denen eine Wertzu- 
weisung an die Variable erfolgt. 

Zum Abschluß noch einige Be- 
richtigungen zu den ersten Folgen: 
Die abgedruckte Programmversion 
wird nicht wie behauptet mit einem 
Kaltstart, sondern mit normalem 
»END« (Zeile 40190) beendet. Bei 
den in Teil 2 auf S. 121 angeführten 
Beispielen fürMarkendefinition und 
Externdeklaration haben sich Feh- 
ler eingeschlichen. Die korrekte 
Form entnehmen Sie bitte Bild 7. 

(Matthias Törk) 
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REISE DURCH DIE WU 


Nachdem in den ersten drei Folgen unseres Grafikkurses al 
Die hochauflösende Grafik des Commodore 64, die von ui 
men einzusetzen. Die nötigen Hilfsmittel, wie zum Beispiele 





ie können bisher Zeichen im 
Mehrfarbenmodus und (aber 
nicht gleichzeitig) mit veränder- 
ten Hintergrundfarben darstellen. 
Das Prinzip der Bit-Map ist Ihnen 
vertraut und Sie wissen, wie man 
dem Computer sagt, daß er nun sei- 
ne Bildschirminformationen aus die- 
ser Bit-Map holt. Sie können in die- 
sem Modus die Farben bestimmen 
und schließlich auch Punkte exaktin 
die Bit-Map setzen. Wenn Ihnen der 
Inhalt der Bit-Map nicht mehr ge- 
fällt, können Sie sie löschen. 

In dieser vierten Folge werden wir 
lernen, wie man die Speicher des 
Commodore 64 für Grafikanwen- 
dungen umkrempelt. Wir werden 
»Dornröschen« in mehreren Farben 
erleben und schließen diesen Teil 
der hochauflösenden Grafik mit ei- 
ner kleinen Unterprogrammbiblio- 
thek ab. Der einleitenden Worte 
sind genug gesagt, Dornröschen 
wartet. 


Wir krempeln den Com- 

modore 64 um: Speicher- 

veränderungen für hoch- 
auflösende Grafik 


Wenn Sie als stolzer Besitzer eines 
C 64 früher auch mal ebenso stolzer 
Besitzer eines VC 20 waren, dann ist 
Ihnen sicherlich in wehmütiger Erin- 
nerung, was Sie sehen, wenn Sie 
durch die POKE-Kommandos 
POKE 51,255:POKE 52, 31:POKE 
55,255:POKE 56,31 
in der letzten Folge die Bit-Map vor 
dem Überschreiben durch Basic 
geschützt haben und dann mal mit 
PRINT FRE (l) nach dem freien 
Basic-Speicher fragten: Da zeigte 
sich: 6144 (ohne Programm)! 

Geht das Ringen um jedes Byte 
nun wiederlos? Wie soll denn in die- 
se 6 KByte ein besseres Spiel mit 
Hochauflösungsgrafik — ganz zu 
schweigen von anspruchsvolleren 
Programmen, zum Beispiel einer 
Kurvendiskussion — hineinpassen? 
Nun, keine Sorge: Wozu haben wir 
im C 64 denn 64 KByte RAM? Wir 
müßten nur wissen, wie wir sie nut- 
zen können. 












Dazu sehen wir uns nochmal den 
VIC-I-Chip an. Im Gegensatz zur 
CPU (unserem Prozessor 6510), die 
über 16 Adressenleitungen verfü- 
gen kann, stehen beim VIC-II-Chip 
lediglich 14 zur Disposition. Wäh- 
rend man also mit 16 Leitungen alle 
Adressen 
von O bis 1111 1111 1111 1111 = 65535 
ansteuern kann, ist bei 14 Leitungen 
ein Maximum 
von 11 1111 1111 1111 = 16383 Adressen 
möglich, also 16 KByte. 

Der gesamte Speicherraum desC 
64 ist in vier solche 16 KByte-Blöcke 
aufteilbar und wie wir wissen, blickt 
der VIC-II-Chip im Normalfall auf 
den ersten 16 KByte-Block (siehe 
Bild )). Nun kann man dem VIC-I- 
Chip mitteilen, daß er seine Auf- 
merksamkeit auf die anderen Spei- 
cherviertel richten möge. Das erfor- 
dert die Mitarbeit des »Portiers« CIA 
2 (siehe Folge ]). Er hatim Gebäude 
56576 zwei Zimmer (Bits O und ]), aus 
denen dem VIC-II-Chip die Anwei- 
sungen gegeben werden, um wel- 


ches Viertel unseres Speichers er 
sich kümmern soll. Auf welche Wei- 
se diese Bits den VIC-II-Chip-Zugriff 
regeln, sehen Sie aus Tabelle 1. 
Commodore empfiehlt nun noch 
sicherzustellen, daß die zu dieser 
Abschnittsauswahl gehörigen Bits 
des Datenrichtungsregisters Port Ä 
im CIA 2 (Speicherstelle 56578) auf], 
also auf Ausgabe, gestellt werden. 
In allen Programmen, die ich bisher 


verwendet habe, wäre das eigent- 
lich nicht nötig gewesen, jedenfalls 
habe ich nichts bemerkt, alsich das 
nicht getan habe. 

Trotzdem gebe ich hier diese 
Empfehlung weiter, falls in Ihren 
Programmen diese Maßnahme not- 
wendig wird. FallsSie vergessen ha- 
ben sollten (Folge 2), wie man Bits 
setzt oder löscht, hier die nötigen 
Programmzeilen dazu: 

20 POKE 56576, (PEEK(56576) AND 

252) ORI 

30 POKE 56578, PEEK(56578) OR 3 
list dabei der in Tabelle 1 gezeig- 

te Dezimalwert der Bits 0 und 1. 

Der VIC-II-Chip managt auch den 
Bildschirm. Im Einschaltzustand 
packt er den Bildschirmspeicher — 
wie wir schon wissen — 











ben bei 

kunft der Fa 

2 Tabelle 3. Nehitarenmodus änepasren 
en ä ngigkeit yon den 






in den Bereich 1024 
und 2023. Wenn wir nun 
einen anderen 16 KByte-Abschnitt 
wählen, legt er den Bildschirm an 
die entsprechende Stelle dieses 
Abschnittes, also: 

In Abschnitt 0: Bildschirm von 1024 
bis 2023 

in Abschnitt 1: Bildschirm von 16384 
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6 64-Kurs Grafik-Grundlagen 


DERWELT DER GRAFIK 


Grundlagen geschaffen wurden, nähern wir uns endlich mit Riesenschritten unserem Ziel: 
endlich aus ihrem Dornröschenschlaf geweckt wurde, gezielt in unseren Basic-Program- 
e kleine Bibliothek von Grafik-Unterprogrammen, werden in dieser Folge vorgestellt. 


+ 1024 = 17408 
bis 16384 + 2023 = 18407 
in Abschnitt 2: Bildschirm von 32768 
+ 1024 = 33792 
bis 32768 + 2023 = 34791 
in Abschnitt 3; Bildschirm von 49152 
+ 1024 = 50176 
bis 49152 + 2023 = 51175. 

Damit brauchen wir uns aber 
nicht zufrieden geben. 


Multivisio — unter 64 
Bildschirm wählen 


Im 16 KByte-Speicherabschnitt hat 
der Bildschirmspeicher ja l&mal 
Platz und wir können ihn ohne weite- 
res an eine andere Stelle schieben. 
Damit kehren wirnochmalzur schon 
oft besungenen Speicherstelle 
53272 zurück. Die Bits 4 bis 7 geben 





Um die entsprechende Bitanord- 
nung zu erreichen, müssen wir also 
eingeben: 

40 POKE 53272, (PEEK(53272) AND 
15) OR W 

Dabei ist W der Dezimalwert der 
Bits 4 bis 7 aus Tabelle 2. 

Das Betriebssystem muß auch 
noch erfahren, daß der Bildschirm- 
speicher verlegt worden ist. Man 
kann es ihm mitteilen, indem man 
die Pagenummer der Bildschirm- 
startadresse in Speicherstelle 648 
einPOKEca. Also ist zum Beispiel der 
normale Inhalt von Speicher 648: 
1024/256 = 4. Auf Page 4 beginnt 
der Bildschirm ja im Einschaltzu- 
stand. Die Pagenummer ergibt sich 
aus I und W (siehe Tabelle 1 und 2) 
durch folgende Rechnung: 
50P = (W/16*1024 + 16384*(3-I))/256 
und wird dann eingePOKEa: 





SPEICHERSTELLE DEZIMALWERT 
53272 (ITS 0-3 als 0 an- BILDSCHIRMSTARTADRESSE 
genommen) (IM ABSCHNITT 0) 

BITS: 7654 W DEZIMAL HEX 
0000 0 0 0 
0001 16 1024 400 
0010 32 2048 800 
0o1l 48 3072 c00 
0100 64 4096 1000 
0101 80 5120 1400 
0110 96 6144 1800 
ol 112 7168 1C00 
1000 128 8192 2000 
1001 144 9216 2400 
1010 160 10240 2800 
1011 176 11264 2C00 
1100 192 12288 3000 
1101 208 13312 3400 
1110 224 14336 3800 
1 240 15350 3C00 





Tabelle 2. Zusammenhang zwischen den Bits 4 bis 7 von Speicher 53272 und dem Ort 


des Bildschirms in Abschnitt 0 


dem VIC-II-Chip den Ort des Bild- 
schirmspeichers an. Durch Verän- 
dern dieser 4 Bits können wir tat- 
sächlich die 16 Bildschirme pro 16 
KByte-Abschnitt einrichten. Der Zu- 
sammenhang zwischen den Bits 4 
bis 7 von Adresse 53272 und dem 
Ort des Bildschirmspeichers im Ab- 
schnitt 0 (und entsprechend paral- 
lelverschoben in den anderen Ab- 
schnitten) ist in Tabelle 2 gezeigt. 


Ausgabe 7/Tuli 1984 


55 POKE 648,P 

So! Jetzt können wir theoretisch 64 
Bildschirme erzeugen. Um uns das 
in der Praxis mal anzusehen, ergän- 
zen wir die bisher verwendeten Pro- 
grammzeilen (die Sie hoffentlich 
noch nicht mit RUN gestartet haben, 
das wäre nämlich mit etwas Glück 
eine gute Methode, den Rechner 
abstürzen zu lassen!) noch um fol- 
gendes: 


10INPUT"LW";1W:PRINTCHR$(147) 
60 PRINT CHR$S(U4NDLW:END 

65 PRINT CHR$(147) 

70 POKE 56576,151:POKE 56578,63: 
POKE 53272,21:POKE 648,4 

80 I=3:W= 16:PRINT CHRS$(4T)LW 
90 END 

Bevor Sie das starten, sollten Sie 
bitten daran denken, daß einige 1IW- 
Kombinationen den Computer zum 
totalen Black-Out führen: Zum Bei- 
spiel I=3,W=0 legt den Bildschirm- 
start direkt in die Zeropage, ist also 
nicht empfehlenswert. I=3W=32 
zerstört unser Programm, das genau 
bei 2048 anfängt. Am besten spei- 
chern Sie das Programm vor dem 
Starten ab. 

Jeweils nach RUN und Eingabe 
der Werte I und W, zum Beispiel 
I=3, W=48, wird der Bildschirm ge- 
löscht und in der obersten. Zeile 
wird der I- und der W-Wert angege- 
ben. Danach meldet sich READY 
und ein Cursor. Jetzt befinden wir 
uns im neuen Bildschirm (unser Bei- 
spiel also 3072 bis 4071) und können 
damit herumexperimentieren. 


Bildschirm-Experimente 


Wenn wir jetzt (falls keine 
Programmänderung in der Zwi- 
schenzeit durchgeführt wurde) 
CONT eingeben, wird der Ur- 
sprungszustand (Bildschirm bei 
1024) wieder hergestellt und dies 
durch die Angabe der I- und W- 
Werte 3 und 16 angezeigt. 

Wenn Sie mit diesem Programm in 
den Bereich 4096 bis 8191 vorstoßen, 
werden Sie feststellen, daß hier kein 
normaler Bildschirm möglich ist. 
Hier stören die mehrfach schon be- 
schworenen Geisterbilder des 
Zeichen-ROM, die in diesem Be- 
reich liegen. Es kann sogar passie- 
ren, daß der Rechner nach der Ein- 
gabe von CONT nur noch SYNTAX 
ERRORs meldet und nicht mehr in 
den Normalzustand zurückzuführen 
ist. Ab 8192 bis 15360 (jeweils Start 
des Bildschirmes) kann man wieder 
ohne Störung Bildschirme einrich- 
ten. Wenn Sie jetzt malI=2 und ver- 
schiedene W-Werte versuchen, se- 
hen Sie nur Nonsens oder gar nichts 
auf dem Bildschirm, dasselbe ge- 
schieht bei I=0. 
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Das ist wieder eine Besonderheit 
des VIC-I-Chip. Er ist so struktu- 
riert, daß der (im Normalfall) in die- 
sen beiden Abschnitten keinen Zu- 
gang zu den normalen Zeichenspei- 
chern hat. Dafür gibt es in Abschnitt 
1 ((=2) keine Störung durch die 
Zeichen-Geisterbilder, ebenso in 
Abschnitt3(l=0). In Abschnitt 2(I=]) 
begegnen wir zwischen 36864 und 
40959 wieder den hier ein zweites 
Mal vorhandenen Zeichen- 
Gespenstern. Unterhalb von 36864 
läßt sich der neue Bildschirm gut 
verwenden. 


Der verborgene Speicher 
— RAM-Bereiche 
unter dem ROM 


Ein Problem stellt sich hier und 
auch im obersten Abschnitt aber 
noch auf andere Weise: Wenn wir 
den Bildschirm zum Beispiel mitI=1 
und W=128 nach 40960 legen (tun 
Sie es bitte nicht!), dann erhalten wir 
bei jeder Eingabe nur noch »SYN- 
TAX ERRORs« und können den 
Computer nur durch Aus- und Ein- 
schalten wieder zu normaler Tätig- 
keitbewegen. Was ist dalos? Die Er- 
klärung ist, daß von 40960 bis 49151 
das Basic-ROM und von 57344 bis 
65535 das Betriebssystem dem RAM 
überlagert sind. Wenn man in diese 
Regionen hineinPOKESG, landet die 
Information natürlich im darunterlie- 
genden RAM. Das was aufdem Bild- 
schirm erscheint wenn wir aus dem 
Programm-Modus aussteigen, ist al- 
lerdings — leider — der Inhalt des 
darüberliegenden ROM. Ersetzen 
Sie aber mal das »END« in Zeile 60 
durch die folgenden Zeilen: 

60 PRINT CHR$(4D1W:PRINT'" 
BILDSCHIRM LIEGT UNTER DEM 
ROM« 

65 GET A$:IF A$=" "THEN 65 
Siehe da! Es funktioniert also im 
Programm-Modus (zum Beispiel mit 
I=1und W=128). Wir können daher 
unter das Basic-ROM auf diese Wei- 
se acht Bildschirme legen. Unter 
das Betriebssystem lassen sich so 
auch Bildschirme legen, nur können 
wir hier den Text nicht lesen, weil 
der VIC-II-Chip — wie gesagt — hier 
keinen Zugriff zum Zeichen-ROM 
hat. So legt zum Beispiel I=0 und 
W=240 den Bildschirm nach 64512, 





Zeichen-ROM und die Ein-und Aus- 
gabebausteine. Normalerweise — 
wiemanauchdurch unsere POKEin 
diesen Bereich erkennen kann — 
sind hier die Ein- und Ausgabe- 
Bausteine eingeschaltet. Wenn wir 
hierher Bildschirme legen, kann al- 
les mögliche passieren, weil wir Re- 
gister des VIC-II-Chip, des SID und 
CIAs beeinflussen. Hier sollte man 
mit viel Vorsicht und gegebenen- 
falls nur in Maschinensprache ope- 
rieren. 

Was wir durch die Programmzeile 
62 noch erkennen können: Das 
Bildschirmfarben-RAM verschiebt 
sich nicht, egal, welches Speicher- 
viertel wir wählen und wohin wir 
den Bildschirm auch legen: Das 
EM liegt immer von 55296 bis 


Normaler Bildschirm 


PAGE 0-3 BASIC-Start 


Adressen 


K 
$ 
de2. 


4 
1000 
4096 


oo 


1024 400 — 
2048 800» 


o 


KOMBINAT. 


| 
U ABSCHNITT 0 


' 


Wohin mit der Bit-Map? 


Nun aber zum großen Speicher- 
fresser: Zur Bit-Map. Mit ihren 8000 
Byte paßt sie im Prinzip achtmal in 
unseren Computer. Im ersten Vier- 
tel (0 bis 16383) haben wir sie schon 
gehabt und das als unbefriedigend 
empfunden. Nun wollen wir uns an- 
dere Möglichkeiten ansehen und 
dabei noch bedenken, daß wir auf 
den normalen Zeichensatz verzich- 
ten können (wir stellen ja hochauflö- 
sende Grafik dar!. Zu diesem 
Zweck werden wir das bisher ver- 
wendete Bildschirmtestprogramm 
um einen Hochauflösungsteil erwei- 
tern (Listing ]). Um die leidige Eintip- 
perei minimal zu halten, wurde auf 
Schönheit und erläuternde REM- 





Zeichen-Geiste 


8 16 
2000 4000 
8192 16384 


| 18 BILDSCHIRM 


BIT- 


: 


BIT-MAP 


|, 8 BIEDSCHIRME 


ABSC 


23552 * 
1=23,W=1l23,B: 


was leicht nachprüfbar ist durch die 


Zeile: 

62 POKE 65000, 1:POKE 55784,1. 
Damit wenden wir uns nun dem 

kritischen Bereich zwischen 53248 

und 57343 zu. Hier liegen ja das 


Bild 2. Die Speicherbelegung des Commodore 64 und die möglichen Positionen von Bildsc 





.n.4a vr Ihn 
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Zeilen verzichtet. Der Hochauflö- 
sungsteil stimmt weitgehend mit 
dem Programm aus der letzten Fol- 
ge überein. Geben Sie also jetzt das 
Listing 1 ein, speichern Sie es mög- 
lichst gleich ab und probieren Sie es 
aus. 

In Bild 2 sind alle möglichen Posi- 
tionen der Bit-Map und des Bild- 
schirmes angegeben. 

Wie man sehen kann, scheiden 
die Kombinationen Nummer 1 und 
Nummer 7 von vornherein aus, weil 
wir mit dem Löschen der Bit-Map 
auch das Lebenslicht unseres Rech- 
ners ausblasen. Die Kombination 
Nummer 2 kennen wir schon: So ha- 
ben wirin der letzten Folge hochauf- 
lösende Grafik betrieben und wa- 
ren enttäuscht über den geringen 
verbliebenen Basic-Speicher. Bei 









Nummer 5 funken uns die Zeichen- 
Spiegelbilder in die Bit-Map, diese 
Kombination scheidet also auch aus. 
Nett sieht es aus, wenn wir die Kom- 
binationen Nummer 6 und Nummer 
8testen. Hier machen sich die ROM- 
Inhalte grafisch zwar ganz interes- 
sant aus, aber mit dem Sinn unserer 
hochauflösenden Grafik hat das 
nichts mehr zu tun. Für uns brauch- 
bar sind die Positionen im Abschnitt 
l: Kombinationen Nummer 3 und 
Nummer 4. Ein Maximum an Basic- 
Speicher findet man bei der letzten 
gezeigten Kombination Nummer 9, 
wo ab 23552 der Bildschirm und ab 
24576 die Bit-Map liegen. Wenn Sie 
den Basic-Speicher für diese An- 
ordnung schützen, mit POKE 


55,0:POKE 56,92:POKE 52,92 und 
den Computer dann mit PRINT 


BASIC-ROM 








FRE() nach dem freien Speicher- 
platz fragen, dann erhalten Sie als 
Antwort immerhin satte 21501 freie 
Byte. 

Der Idealfall wäre es, wenn man 
die Bit-Map unter das ROM legen 
könnte (Kombinationen 6 oder 8). 
Das geht natürlich auch! Von Basic 
aus wird ein Programm dann aller- 
dings noch langsamer, weil man für 
jeden Punkt ähnliche Operationen 
vornehmen müßte, wie wirsieinder 
zweiten Folge beim Kopieren des 
Zeichen-ROM ins RAM verwendet 
haben. Auch so ist die ganze Hoch- 
auflösungsgrafik schon ziemlich 
langsam. Wir werden aber in kom- 
menden Folgen einige Routinen in 
Maschinensprache kennenlernen, 
die uns mehr Möglichkeiten eröff- 
nen. 











32 
8000 
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9000 
36864 


48 
C000 
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Hochauflösende Grafik in Farbe: 
Kann das der C 64 überhaupt? Die 
Antwort lautet Ja und Nein. Ja, weil 
der bislang von uns verwendete Bit- 
Map-Modus anstelle der zwei bis- 
her benutzten auch mit vier Farben 
ablaufen kann. Nein, weil die Punk- 
teauflösung dann eigentlich nicht 
mehr die Bezeichnung »hochauflö- 
send« verdient. Die horizontale Auf- 
lösung geschieht hier nämlich nur 
noch in 160 Positionen anstelle der 


Die Grafik bekennt Farbe: 
Der Bit-Map-Mehrfarben- 
Modus 


bisher ansprechbaren 320. Meine 
persönliche Meinung dazu ist, ernst- 
hafte hochauflösende Grafik sollte 
sich im bisher besprochenen Bit- 
Map-Modus abspielen, denn ein 
Bildschirm mit 64000 Bildpunkten ist 
schon eine Minimalanforderung. 
32000 Bildschirmpositionen sind al- 
lenfalls für Spielereien ganz nett, 
wenn auch etwas teuer, denn ohne 
Farbmonitor haben Sie von der Far- 
be nicht viel und über den Unter- 
schied zwischen Farbfernseher und 
Farbmonitor haben wir im Verlauf 
dieser Serie schon etwas erfahren. 

Nach dieser etwas desillusionie- 
renden Vorrede widmen wir uns al- 
so der mehrfarbigen Bit-Map- 
Grafik. Eshandeltsich um eine Kom- 
bination aus der bisher bekannten 
Bit-Map-Grafik und dem Mehrfar- 
ben-Modus, den wir schon bei den 
mehrfarbigen Zeichen kennenge- 
lernt haben. Auf dem Bildschirm 
wird der Inhalt der Bit-Map wieder- 
gegeben, aber die Farben der 
Zeichnungen sind abhängig von Bit- 
Paaren. Welche Farben Sie bei wel- 
cher Paarung sehen, darüber gibt 
Tabelle 3 Aufschluß. 

Es existiert also eine Hintergrund- 
farbe für den gesamten Bildschirm, 
die überall dort auftaucht, woin der 
Bit-Map ein Bit-Paar 00 vorhanden 
ist. Diese Hintergrundfarbe ist 
durch den Zahlenwert in Register 
53281 bestimmt. Die anderen drei 
Farben treten jeweilsinden 8x 8-Bit- 
Bildschirmfeldemn auf, in die das 
Video-RAM, beziehungsweise der 
EI RREN arbspeicher aufgeteilt 
sind. 

Wir ergänzen unser Programm | 
für den Mehrfarben-Modus: Außer 
dem Bit-Map-Modus muß hier also 
noch der Mehrfarb-Modus einge- 
schaltet werden. Das haben wir in 
der letzten Folge kennengelernt: 
145 POKE 53270,PEEK (53270) OR 16 
Weiterhin ändern wir noch die Zeile 
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5 und schreiben anstelle von F=6 
jetzt GOSUB 300. Folgende Zeilen 
kommen neu hinzu: 
300 PRINT CHRSU4DCHRSUN" 
FARBENWAHL:” 310 PRINT CHR$ 
(ID"HINTER-GRUNDFARBE"TAB 
(80);INPUT FO 320 PRINT "BITS 4-7 
VIDEOMATRIX"TAB(0); INPUT Fl 
330 PRINT "BITS 0-3 VIDEOMA- 
TRIX"TAB@0); INPUT F2 
340 PRINT "BILDSCHIRMFARB- 
SPEICHER'"TAB(80); INPUT F3 
350 POKE 53281,F0:F=16*F1+F2: 
FOR I=55296 TO 56295:POKE LF: 
NEXTI 
360 PRINT CHR$(147):RETURN 
UmdesEifektes willenändern wir 
noch die Zeile 220, in der die Video- 
matrix mit den Farbzahlen beleat 


wird: 
220 FOR J=0TO 998 STEP 2:POKE 
J,F:NEXT J:FOR ]J=1TO 999 STEP 
2:POKE J,F+1:NEXT]J 

Starten Sie dieses Programm nach 
dem Abspeichern mit RUN, probie- 
ren Sie alle möglichen Farbkenn- 
zahlen aus. Sie werden fast immer 
bemerken, daß die Hoch- und Tief- 
punkte der Kurve nicht mitgezeich- 
net werden. Dasliegt daran, daß un- 
ter Verfahren der Berechnung, wel- 
ches Bit in welchem Byte gesetzt 
werden soll, noch auf einzelne Bits 
und nicht die paarweise Verwen- 
dung abgestimmt ist. Es gibt zwei 
Möglichkeiten: Entweder ändert 
man das Berechnungsverfahren in 
Zeile 240, um an die richtige Stelle 
die passenden Bit-Paare zu bekom- 





Bild 3. 

Ein Punkt (X,Y) 

im Bildschirmkoordinatensystem 
(0<X=<319,0<Y=<199) 


Bild 4: Eine Strecke (X1,Y1) bis (X2,Y2) im Bild- 
schirmkoordinatensystem 


Bild 5: 
Ellipsenbogen 

der Ellipse mit 
Mittelpunkt (XM,YM), 
Halbmessern HX 

und HY, von Winkel 
WU bis WO im 
System der Bild- 
schirmkoordinaten 
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men, oder wir ändern die Pro- 
grammzeile 230 zu: 

230 FOR I=0 TO 319 STEP 2XY= 
FNAX) 

Das ist zwar mal wieder etwas pri- 
mitiv, aber — wie gesagt — sind mei- 
ne Ambitionen zur Mehrfarben- 
»Hochauflösung« sowieso nicht so 
stark. Wer Lust hat, kann sich ja ger- 
ne mal mit der korrekten Weise der 
neuen Berechnung herumschlagen. 
Das Wissen, diese Aufgabe zu be- 
wältigen, haben Sie jetzt. Auf dem 
Schwarzweiß-Monitor sieht zum Bei- 
spiel folgende Zahlenkombination 
ganz gut aus: 

Hintergrundfarbe: 7 

Bits 4 bis 7: 5 

Bits 0 bis 3: 1 
Bildschirmspeicher: 0 
Außerdem natürlich noch: I=2, 
W=112, B=1. 

Mit dem hier folgenden Abschnitt 
soll zunächst einmal die hochauflö- 
sende Grafik beiseite gelegt wer- 
den. Domröschen ist erwacht und 
genesen, allerdings noch nicht voll 
bei Kräften. Das wird in einer späte- 
ren Folge noch anders werden. Da- 
vor wollen wir aber noch weitere 
Grafik-Besonderheiten des C 64 be- 
handeln. An dieser Stelle wollen wir 
jedoch einen Zwischenhalt einlegen 
und eine kleine Sammlung von 
Basic-Unterprogrammen zur Grafik- 
Programmierung vorstellen. In Li- 
sting 2 sind diese Grafik-Unterpro- 
gramme, in Listing 3 ein Beispiel- 
Aufrufprogramm abgedruckt. Beim 
Eintippen beider Programme kön- 
nen Sie die REM-Zeilen ohne Scha- 
den weglassen. 


Erläuterungen zu Listing 2 (Zeilen- 
bereich 49990 bis 51500) 


*Sprungtabelle: 

Das ist in Basic im allgemeinen 
nicht üblich, sondern wird häufiger 
bei Maschinensprache-Program- 


ELLIPSENBOGEN 
von WU bis WO 





men verwendet. Trotzdem hat es 
auch hier seine Vorteile. Es kann ja 
sein, daß Sie einige Änderungen 
oder Ergänzungen in den Unterpro- 
grammen vornehmen wollen. Sie 
müßten dann auch immer die 
Adressen in den jeweils aufzurufen- 
den Hauptprogrammen umschrei- 
ben. Mit der Sprungtabelle ist das 
nicht mehr nötig, denn die GOSUB- 
Adressen im Hauptprogramm blei- 
ben unverändert, nur die neuen 
GOTO-Adressen im Uhnterpro- 
gramm sind einzusetzen. 

+ HIRES an 

Hier machen wir uns die Erkennt- 
nisse dieser Folge zunutze und le- 
gen den Bildschirm nach 23552 und 
die Bit-Map nach 24576. Beides müs- 
sen wir — wie gehabt — vor dem 
Überschreiben durch Basic schüt- 
zen mit: 

POKE 52,92:POKE 58,92. 

Am besten packt man diese 
POKE-Befehle gleich in die ersten 
Zeilen des aufrufenden Hauptpro- 
gramms. 
+Bit-Map-Löschen 

Hierzu gibt es nichts mehr zu sa- 
gen, außer, daß I als Laufvariable 
dient. 

Farbgebung 

Bevor dieses Unterprogramm auf- 
gerufen wird, müssen im Hauptpro- 
gramm 
Fl = Zeichenfarbe und 
F2 = Hintergrundfarbe 
definiert sein. An Variablen treten 
noch auf: 

F = Farbcodezahle auf Fl und F2 
I = Laufvariable 
=HIRES aus 

Dieses Programm stellt die ur- 
sprüngliche Speicherorganisation 
wieder her (Bildschirm- und Zei- 
chenspeicher) und schaltet in den 
Normalmodus zurück. 


Punkt setzen 

Auch hier müssen vor dem Aufruf 
des Unterprogramms im Hauptspei- 
cher die 
Punktkoordinaten X,Y 
definiert sein (siehe Bild 3) sowie die 
L — Löschmarke 

WennL = Oist, wird der Punkt ge- 
setzt (Zeile 50930), so, wie wir das 
schon kennen. Ist L = |, dann wird 
ein vorhandener Punkt gelöscht 
(Zeile 50920). 

Die Zeile 50905 achtet darauf, daß 
keine Punktkoordinate außerhalb 
des Bildschirms liegt, was unter Um- 
ständen ein Aussteigen mit Fehler- 
meldung im Hochauflösungsverfah- 
ren zur Folge hätte. Das ist hier zwar 
nicht so tragisch, weil man durch 
Eingeben von GOTO 50030 »RE- 
TURN« schnell wieder in den Nor- 


malmodus gelangen kann (eventuell 
muß vorher noch »SHIFT« +»CLR/ 
HOME« gedrückt werden). Trotz- 
dem ist es dumm, wenn inmitten all 
dieser zeitraubenden Grafiktätig- 
keiten auch noch der Rechner aus- 
steigt. Eine Grenzüberschreitung 
der Koordinaten ist um so leichter 
möglich, als die Punkt-Routine von 
allen folgenden Unterprogrammen 
aufgerufen wird. Außer X,Y und L 
tauchen noch die Variablen BY und 
Bl auf, die wir schon kennengelernt 
haben als das Byte, in dem ein Bitzu 
setzen oder zu löschen ist. 
Punkt löschen 

Hier geschieht nichts anderes, als 
die Löschmarke L auf 1 zu setzen 
und dann in die Punkt-Setz-Routine 
zu springen. Deswegen gilt für die- 
ses Unterprogramm dasselbe wie 
für das vorangegangene. 
Strecke zeichnen 

Vor dem Aufruf müssen dem 
Rechner schon 
der Startpunkt (X1,Y)) und 
der Endpunkt (X2,\Y2) der Strecke 
bekannt gemacht sein (siehe Bild 4). 

Den mathematisch Versierten 
wird es bei der Betrachtung der Zei- 
len 51120 beziehungsweise 51160 
schon aufgefallen sein, daß zur Be- 
rechnung der Punkte, aus denen 
sich die Strecke zusammensetzt, die 
sogenannte 2-Punkte-Form der Ge- 
radengleichung verwendet wurde: 


wı _ yayı 
XXI x 


Den mit Mathematik nicht so ver- 
trauten Lesern sei gesagt, daß es 
sich um eine Formel aus der soge- 
nannten analytischen Geometrie 
handelt. Das ist ein Gebiet der Ma- 
thematik, das für die Grafik auf 
Computern eine nicht unerhebliche 
Rolle spielt. 

Die Punkte (X1, Yl) und (X2, Y2) 
dürfen auch außerhalb des Bild- 
schirmsystems liegen. Imersten Teil 
des Unterprogramms dient die 
Übergabevariable X auch gleich- 
zeitig als Laufvariable während Y 
berechnet wird. Wenn allerdings 
der Absolutbetrag von X2-X1 klei- 
ner als 5 wird, verkehren sich die 
Verhältnisse: Y wird Laufvariable 
und X berechnet. Das beschleunigt 
das Zeichnen von Senkrechten und 
verhindert außerdem eine Division 
durch Null. Der Wert von 5 ist dabei 
ziemlich willkürlich gewählt. L ist 
wieder die Löschmarke. 

#Strecke löschen 

Es gilt dasselbe wie für das Unter- 
programm Strecke zeichnen, nur 
daß hier wieder die Löschmarke 


gesetzt wird. 
3Sar 167 









ı FEN susaeaaessgssreeere 
REM % PROGRAMM 1 * 
FEM ERRFEHEIFE 
=5:DEFFNACKI=SRESINCK/20)+109 
12 PRINTCHRECIIFICHRECITI"EINGABE DER WHERTE"CHRSCI?? 
29 PRINTCHRSCIFTI"ICSIEHE TAB.1) ABSCHNITT-KENNZIFFER"CHREK(ITD 
33 PRINT"WCSIEHE TAB.2) BILDSCHIRM-KENNZIFFER"CHRSCI?) 
48 PRINT"E=9,BIT-NAP IM UNTEREN ABSCHNITT-BEREICH" 
52 PRINT" =1.BIT-MAP IM OBEREN ABSCHNITT-BEREICH"CHRSCIT) 
59 PRINTCHRECIT)I:INPUT"T.W, B="3 I, 1, BiA1=3-1 R2=W/15R1024+A1416354: ABA 15T 
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+Ellipse zeichnen 
Vor dem Aufruf müssen folgende 
Werte schon definiert sein (siehe 








AND 
























auch Bild 5): 8192 
og: A 79 PSR2/2S5:PRINTCHRECITICHRECHTI"MIT DIESEN EINGABEN HABEN SIE" 
(XM\YM) = Mittelpunktkoordi 29 PRINT"DEN RESCHNITT "Ai" GEUREHLT." 
naten 94 PRINT"IHR BILDSCHIRM STARTET BEI "RZ 
ch m 188 PRINT"UND IHRE BIT-MAP BEI "A3 
HX Bi a inX 119 PRINTCHRECLFI"IST DAS SO IM ORDNUNG?CI/NI" 
chtun 126 GETAS: IFAS=""THENI2O 
; 130 IFAF="N"THENIG 
HY = Halbmesser in Y 148 PRINTCHRSC147> Listing 1. 
Richtung 145 REM #+#44 NEUER SPEICHER 444% Testprogramm zur Bildschirmlokalisierung 
i sa po 76, (PEEK(SESTSIANDZSZIOR 
WUWO = Der zu zeichnende ER ERS EL SEEN SOHLE TER LENE OR! 
Ellipsenbogen beginnt I z en CPEEKLSZZTZIANDISIORH 
Kun 19% POKES3263. PEEK (532590832 
eim Wink 2a0 POKES3272, PEEK(SSI7ZIORLEHB) 
WO(G aß = 210 FORJ=OTO7333 POKER2+],Q'NEXTI 
(Gradmaß) 228 FORI=8T0933:POKER2+J,F NEXT! 





228 FORK=ATOSIF:TSFNACH? 

240 Bir=CKANDS9S +08 YAND243)+CYANDT) :BI=7-CHAND?) 

258 POKER3+BY, PEEKCAS+EYIOR(ZTEII :HEXTX 

266 GETAS: IFAS=""THEN269 

265 REM #### ALTER SPEICHER Ft 

279 FOKES3272, 21: POKES3265, 27: FOKE648,4:FOKESES78,53:POKESSSTE, 151 
235 PRINTCHRE(IAT):END 


Eine volle Ellipse wird also ge- 
zeichnet, wenn WU = Ound WO = 



















REM --UNTERFROGSRAMME- 


2 REM mm 






READY, 










HIRES AN 
Saaıa GOTISASAR:REM BIT-MAP-LOESCHEN 
aR29 GOTOSA7IA:REM FAREGEBUNS Ri 

724 GOTOSABOR:REM HIRES AUS FSSSÄREm ES 

44 GOTISGIGA:REM PLNKT SETZEN Spoz> REM __TTPUNKT I III 
Sa GOTOSIBSA:REM PUNKT LOESCHEN FOREN 3 5 
MASA GOTOSL1DR:REM STRECKE ZEICHNEN I Lzyn 

79 SOTOS12G@:REM STRECKE LOESCHEN 
154 GOTOSI3BE:REM ELLIFSE ZEICHNEN SIDaS SEM 

59498 GOTOSL49M:REM ELLIPSE LOESCHEN Saas REM = 

SA198 GOTOS1SGH:REM KOMBINIERTES HIRES AN Ber Rem. = H- 

Sa4aR PEM Bin REM Mh uen Er Eu 
SBAIL REM Sn ee, 323 
59432 REM ----HIRES AN------ I> 
59493 REM -------- nn 

594294 REM 

Sasaa POKESSSTE. (PEEKLSSSTEIANDZSZIORZ 
sgsia POKESSS7S. PEEK(SESTEIORE 

Ss9529 POKES3272.128:POKES43,92 

595209 POKES3253, PEEK(SFZESIOR3Z 

SaS4A RETURN 

Ssas3a REM 

S95931 REM -----——--- 


"u 


-_ 
u 
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ne 


DE 
en) 
















59593 REM: raten SEREMUS NSS 


59594 REM SS REM ___ STRECKE Lana 
59600 FORT=249781032573:POKEI,M:NEXTI 205 en 
59519 RETURN Sul 0 


ee 


.——— nn. ala: 
=. 


-— 
mn ar a 
_ SEE 


Fee 
— 
— 
in 


F=15#F1+F2 Si31o 8 er, 
@ FORI=235521024551:POKEIL,F:NEXTI 328 = 
26 RETURN 

39 REM 

0791 BEN se IE 
59732 PEM --—----HIRES AUS------ 
















59734 REM a nn SE 
59399: POKES3265,27:POKES3272, 21 :POKES48,4 Eee Bde, 
59319 POKESS578.83:POKESSS7S, 151 gr. run a 


ax 
_ 
—_ 
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A RETURN Dia: Re 560 Sen 
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ZORKSIPELSORFLAORTDLIATHENSEAIE 
HANDSEED+IOECTANDZASI+COHANDT) :EI=ST-CHAND?) Listing 2. 
FL=1 THENFOKE24STE+HENV , PEEKC2I4STE+HENT Unterprogramme zur 
hochauflösenden Grafik 
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REM rare 
REM # GRAFIK TEST PROGRAMM YON + 
FEM # H.PONNATH 1934 YERBROCHEN % 
REM 444444444444 04 4, 4 
FOKES2., 92: POKESE, 92: DEFFNAC SOESINCH/SN)+120 
REM saHsssr re 
REM & MENUIE-SUTEN APPETIT + 
REM Kresse 
a PRINTCHREL1ATICHRECI FI" UNTERPROGRAMME GRAFIK TEST"CHRS(17) 
zu PRINTTRABCZI"NUR HIRES AN"TRB(CZ 
a PRINTTAB(Z?"NUR HIRES AUS"TABL2SI"2" 
PRINTTAB<Z)"EIT MAF LOESCHEN"TAB(2SI"3" 
a PRINTTAECZI"FAREGEEUNG"TRB(C2SI"4" 
PRINTTAB(C2> "KOMBINATION" TABLZSI"S" 
PRINTTABCZI "PUNKTE SETZEN" TREC2S>I"S" 
PRINTTAB(CZ>"PLINKTE LOESCHEN"TABCZSI"7" 
FRINTTAE« STRECKE ZEICHNEN" TABC2SI"S 
PRINTTAB(CZY"STRECKE LOESCHEN"TABC2S 2" E 
PRINTENBCZ> "ELLIFSE ZEICHNEN"TAB“ 
PRINTTA "ELLIPSE LOESCHEN"TAR« 
PRINTTRE »"DEMGNSTRATION"TABC2S) 
PRINTTABC 1? "MENUE"TARC2SI"M" 
FRINTTABC1I "AUSSTEIGEN" TABLZSI"+" 
GETAF: IFAF=""THENSO 
IFAt="«" THENEND 
IFAE=S"NA"THENAFE="1O" 
IFAg="E"THENAF="11" 
IFAS="C"THENAF="12" 
IFAS="M"THENI1H 
ENYAL<CAEIGOS: 
GOTOSR 
REM sk 
FEM & FAREGEEUNG * 
PEN #asssn ss 
INPUT"ZEICHENFARBE, HINTERGRUNDFARBE=" Fi, F2: 6070509268 
REM Hass assirrsr ehe 
REM + FARBE FUER KOMBINATION + 
REM sadssshsasseeeeee 
INPUT"ZEICHENFAREBE , HINTERGRUNDFARBE=" ;F1,F2:G0T0501089 
REM #4444 4004410 re 
REM * BEISPIEL PUNKTE SETZEN # 
FEM weis sr 
GOSLPIOHR9  FORK=SOTO313: YSFNACH) GOSUBSDOOSO !NEXTA 
RETURN 
PEM srssne here 
REM # BEISFIEL PUNKTE LOESCHEN+ 
2 REM de 
GOSUPSHES  FORH=29T0259: YHFNACH)  GOSUBSADSSH NENTN 
a RETURN 
REM 444404 
REM # AUFRUFPRÜGRAMM FUER * 
REM # STRECKE ZEICHNEN + 
REM Kerrerr er eheette 
M PRINT" RSTRECKEM VON (Hl, W1) BIS RZ, WED" INPUTFHIYLLNZ NZ HL LINZ 
51a GOSUESEIER:HOTCSR 
REM ERERERARTERSRERERFEPEERERN 
Ken + en FUER * 
<E LOESCHEN * 





DC BI TI 
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N ee 
PRINT” RSTRECKE® MOHN Hl 1) BIS 1X2, 123": INPUT"KL.YL KH NZ RL, TV LINZ, YZ2 
a GOSUBSRANI:GOTLSAHTE 
REM Kasehreenehrrereeet 
REM # AUFRUFFROGRAMM FUER + 
REM * ELLIPSE ZEICHNEN * 
3 REN Whkahheaerer ee 
a PRINT"SELLIPSE® MIT MITTELPUNKT CXM,YM),":PRINTTABCLI"HALBMESSERN HX UND HY" 
PRINTTRB<IY"ZEICHNEN YON HINKEL HU":PRINTTABCIY"BIS WINKEL WO (GRADMASS)" 
INPUT", TI HI HYV. HL KO=" MY HI HYV, HU, WO: GOSUBS2999 :SOTOSOOSO 
G REM Khsssssssnssrerrreeesreeee 
REM & AUFRUFPROGRAMM FUER * 
> REM & ELLIPSE LOESCHEN * 
REM su4hssra sure 
PRINT" TELLIFSE® MIT MITTELPUNKT CXM. WM), ":PRINTTABCLI"HALBMESSERN HX UND Hr" 
PRINTTABCI>"LOESCHEN YOHN WINKEL we: PRINTTABCL)"EIS WINKEL WO CGRADMASS>)" 
G INPUT"ZM, YM, HN, HW, MU, HO=" NM NM. HN, HY WU, WO:GOSUBSOREB :GOT0S9999 
REM drshssesrsssheeeeeteeee 
REM # AUFRUFPROSRAMM FUER % 
2 REM * DEMONSTRATION 





a GOSUESOH2G PRINTCHRSC147) :FORI=1TO1G:PRINTCHRELITIS:NEXTI 
0 FRINTTAE(SE>"BITTE ETHRS GEDULD" :PRINTTABSSI"DIE BIT-MAP WIRD GELIESCHT” 
a GÜSUBSEBLA:PRINTTAB<S? "UND MIT FARBE VERSEHEN" :FORI=1TO199N 'NEXTI 
a F1=7:F2=65:G0S1U50999 08 S1JB52029 : FORI=1T0S98 : NEXT: GOSUBSG93O 
PRINTCHRE{ 1473: FORI= :PRINTCHRS<C17) 5 :NEXTI 
FRINTTAB(S 5 
GOSUBSORDE : F Aatgı2 
ı Y1=30H1810°V AT:R2 3 3:72=19+1414,.593 
SISUBSBASE KTL'FORK=O : K'F2 GOSUEBSOZ FORJ=1T0598 :NEXTJ 'NEXTK 
SOSUEF9RIFN ERTMT PR Ü ni 
309 NEXT’ GOSUBSAHEN:X1=39: Y1=130:42=158:r2=10 GOSUESNR7EO 
’ Y1=185 E52979:FORI=1T0599 NEXTI GOSUBSEBS2D 
PRINT :PRINTTRE(S>"ELLIPSEN ZEICHNEN" :FORI=1T0599 : NEXTI :GOSUBS0998 
KM=179:M= 











Listing 3. Grafik-Test und Demonstration 
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Grafik-Grundlagen 


360 ist. Der Kreis ist ein Sonderfall 
der Ellipse. Dann muß nur HX = HY 
sein. 

Für mathematisch Interessierte: 
Es werden die Parametergleichun- 
gen der Ellipse verwendet: 
X=XM+HX*COS(WB) und 
Y=YM + HX* SIN(WB) 

Auch hier gibt es keine Einschrän- 
kung wie beim Strecken-Zeichnen 
in der Größe von XM, YM, HX, WU, 
WO. 

W ist eine Laufvariable (ein Win- 
kel) der in WB (gleicher Winkel im 
Bogenmaß) umgerechnet wird. L ist 
wieder die Löschmarke. 





+Ellipse löschen 

Bis auf das Setzen der Löschmar- 
ke gilt dasselbe wie für das Zeich- 
nen der Ellipse. 


Kombination 

Erfordert schon definierte Farb- 
kennzahlen Fl und F2 (siehe Farb- 
gebung) und schaltet dann die 
Hochauflösung an, löscht die Bit- 
Map und sorgt für die Farbe. 

Soweit die Unterprogramme in Li- 
sting 2. 


En Beispe ür ie 
Grafik-Bibliothek 








Als ein Beispiel für die Möglich- 
keiten der Unterprogramm- 
Sammlung habe ich (ohne nun be- 
sonders auf Schönheit zu achten — 
das sind Sie ja von mir schon ge- 
wohnt), noch ein Hauptprogramm 
angefügt, mit dem Sie etwas herum- 
probieren können (Listing 3). Das Li- 
sting ist ausführlich kommentiert, so 
daß hier nur wenige Erläuterungen 
folgen müssen. 

Beim Eintippen müssen Sie für ei- 
nige Zeilen die Abkürzungen (siehe 
Handbuch Seite 130 ff) der Basic- 
Befehle eingeben, da die Zeilen 
sonst länger als 80 Zeichen werden. 

Nach »RUN« sehen Sie ein Menü, 
das alle Möglichkeiten der Grafik- 
Unterprogramme ansteuert. Die 
Optionen 8 (Strecke zeichnen) bis B 
(Ellipse löschen) sowie 4 (Farbge- 
bung) und 5 (Kombinationen) erfor- 
dem Eingaben. Es ist daher sinnvoll, 
diese Optionen nur im Normalmo- 
dus anzuwählen. Der Normalmodus 
ist immer dann zu erreichen, wenn 
Zeichenoperationen im Hochauflö- 
sungsmodus abgeschlossen sind. 


Fortsetzung auf Seite 178 
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fußboden, Neonlicht, auf dem 
großen, grauen Ärbeitstisch in 
der Mitte des Raumes ein Gewirr 
von Plastikschläuchen, an Stahlstan- 
gen aufgehängt. Große und kleine 
Plastikflaschen — etwas abseits 
Meßinstrumente und ein VC 20. Der 
erste Eindruck: steril und kompli- 
ziert— dennoch, derBlick durch die 
Glastür in dieses Labor der Abtei- 
lung Stoffwechselregulation des In- 
stituts für Physiologische Chemie an 
der Uni München erweckt Neugier. 
Franz M. Zwiebel, einer der wis- 
senschaftlichen Mitarbeiter, öffnet 
einladend die Tür. Drei Schritte bis 
zu dem dominierenden Schlauchla- 
byrinth, und es wird noch rätselhaf- 


170 Yan 


G ekachelte Wände, kalter Stein- 


gespritzt. 






in die Leber ein 


ter: In den Schläuchen pulsiert eine 
klare Flüssigkeit. An dem Tisch sitzt 
ein junger Mann. Er könnte be- 
stimmt erklären, was sich in dem 
Schlauchwirrwarr abspielt, wozu 
dieser Laboraufbau dient. Doch sei- 
ne hochkonzentrierte Miene läßt 
keine Frage zu. Offensichtlich hat er 
überhaupt nicht bemerkt, daß je- 
mand hereingekommen ist. Gedul- 
dig und präzise näht er an einem 
kleinen roten ovalen Etwas, das gut 
ausgeleuchtet im Scheinwerferlicht 
vorinhman den Schläuchen baumelt. 
Es pulsiert rhythmisch. Erste Asso- 
ziation: ein rohes Stückchen Fleisch 
— nichts für jemanden mit schwa- 
chen Nerven. Der junge Mann, Tho- 
mas Kapsner, Medizinstudent im 





Der VC 20 und der C 64 


werden gerne als Spielzeug abgetan. 


Der Gegenbeweis liegt vor. 


Im Institut für Physiologische 


Chemie in München 
wurden fünf Commodore 


bei Untersuchungen im Labor 


eingesetzt. 


sechsten Semester, näht an einem 
pulsierenden Rattenherz. 

Während der ganzen Zeit steht 
FranzM. Zwiebel schmunzelnd in ei- 
ner Ecke des Labors. Er kennt die 
erstaunten und neugierigen Blicke 
der Outsider. Für ihn ist es Arbeits- 
alltag, was hier passiert. Wieder 
draußen auf dem Flur erklärt er: 
»Wir untersuchen Stoffwechselvor- 
gänge an intakten Tier-Organen. Es 
istderbeste Weg, verläßliche Änga- 
ben über den menschlichen Stoff- 
wechsel zu bekommen. Reagenz- 
glasforschung bringt da nichts. Was 
Sie eben gesehen haben, ist ein iso- 
liertes Rattenherz, das über einen 
künstlichen Kreislauf am Leben er- 
halten wird.« Aha, dasleichte Schau- 
dem vorhin war also berechtigt. 
Und die Schläuche mit der Flüssig- 
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keit stellen den künstlichen Kreis- 
lauf dar. Franz M. Zwiebel fährt fort: 
»Unsere Abteilung erforscht Stoff- 
wechselvorgänge in der Zelle und 
den Transport von Stoffen über die 
Zellmembran. Das hört sich sehr 
kompliziert an, aber im Grunde ge- 
nommen gehtesdarum, Wirkungen 
von Hormonen, anderen körperei- 
genen Stoffen sowie Medikamenten 
auf die Spur zu kommen.« 


Der VC 20 regelt den 
Kreislauf 


Das klingt alles recht einleuch- 
tend, doch was soll der Commodore 
dabei? Franz Zwiebel schien die 
Frage erraten zu haben: »Der VC 20 
ist für uns ein unentbehrlicher Hel- 
fer geworden. Er regelt den künstli- 
chen Kreislauf bei unseren Experi- 
menten. Nehmen wir als Beispiel 
das Herz. In einem lebenden Orga- 
nismus pumpt ein Herz— jenach Be- 
lastung — unterschiedliche Blut- 
mengen pro Zeiteinheit durch das 
Gefäßsystem. Dasselbe geschieht 
auch bei dem isolierten Herz: Mal 
kontrahiert der Muskel mehr, mal 
weniger. Folge ist, daß nicht zu je- 
dem Zeitpunkt eine konstante Men- 
ge der Flüssigkeit aufgenommen 
und abgegeben wird. Dieser Flüs- 
sigkeit wollen wir eine bestimmte 
Konzentration des interessierenden 
Stoffes zusetzen. Um genaue Ergeb- 
nisse zu bekommen, muß die zuge- 
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pumpte Menge der Durchflußge- 
schwindigkeit angepaßt werden. 
Schwankungen, die das lebende 
Organ bewirkt, sind über den 
Schrittmotor der Infusionspumpen 
zu regulieren. Und diese Regulation 
übernimmt der VC 20 für uns. Über 
eine Meßeinrichtung nimmt er die 
Menge der Flüssigkeit pro Zeitein- 
heit aufund bei Abweichungen vom 
Sollwert weist er den Schrittmotor 
an, schneller oder langsamer zu ar- 
beiten.« 


Ohne Computer geht 
nichts 


Diese Erklärung vermittelt den 
Eindruck: Ohne Computersteue- 
rung können die Stoffwechsel- 
Untersuchungen überhaupt nicht 
durchgeführt werden. Franz M. 
Zwiebel bestätigt: »Vorher wurden 
die Werte gemessen, Abweichun- 
gen sowie die notwendigen Neuein- 
stellungen des Schrittmotors wur- 
den mit Papier und Bleistift errech- 
net. Es war schon eine Revolution, 
als dafür ein Taschenrechner her- 
genommen werden konnte Aber 
trotzdem, ehe man addiert, subtra- 
hiert, dividiert, multipliziert und 


dann den Motor neu reguliert hatte, 
war oftmals schon zu viel Zeit ver- 
gangen. Eine Reihe von Untersu- 
chungen brauchten erst gar nicht 
ausgewertetzu werden — die Arbei- 
ten waren aufgrund der zu langen 
Verzögerungen wertlos.« 

In einem anderen Labor läuft ge- 
rade ein Versuch mit einer Ratten- 


Leber. Auch hier wieder der be- 
kannte Versuchsaufbau: Computer 
Schrittmotor, künstlicher Kreislauf. 
Mit höchster Aufmerksamkeit per- 
fundiert die medizinisch-technische 
Assistentin Ursula Schwabe das 
Tier-Organ; das heißt in genau aus- 
geklügelten Zeitabständen spritzt 
sie Hormone ein. 

Hier im Institut für Physiologische 
Chemie werden Grundlagen des 
Stoffwechsels erforscht. Sie sind 
Voraussetzung für weitere medizini- 
sche Forschungsprojekte. Es kann 
oft Jahre dauern, bis ein Patient von 
diesen Erkenntnissen profitiert. 


Einer ist zu wenig 


Ein Computer ist nur ein Tropfen 
auf den heißen Stein — nach diesem 
Motto schafften sich die Münchner 
gleich eine ganze Handvoll dieser 
Helfer für ihre Abteilung an. Alle ge- 
hören der Großfamilie Commodore 
an: zwei VC 20, ein C 64, ein 64 SX 
und ein cbm 8032. Auf den Ge- 
schmack ist man vor drei Jahren ge- 
kommen — kurz nach dem Erschei- 
nen des VC 20 auf dem deutschen 
Markt wurde er gekauft. Die Aus- 
stattung war damals sehr mager: 5 
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KByte Arbeitsspeicher. Erst ein Jahr 
später gab es dann das dringend 
notwendige Zubehör: Speicherer- 
weiterung, Drucker, Laufwerke. Die 
Software schrieb Franz M. Zwiebel 
zum großen Teil selbst. Die Compu- 
ter bewährten sich schnell. Ein Com- 
modore kann nicht nur einen (künst- 
lichen) Kreislauf zuverlässig regu- 
lieren, sondern er ist auch ein vor- 
trefflicher »Rechenkünstler« und ge- 
duldiger Datenschlucker. Denn zur 
Auswertung der Daten, die bei den 


ERGEEHMNISPFPROTOROL_L. 


ELHTIT 2 


LFD.NR. 
* =-SACCHARUSE 
<dem/58 ul) 


14C- 140- 
-HÄRNSTOFF 
<dpm/S50 ul) 





beiden Faktoren machen kann. Des- 
halb geben wir bei jedem Versuch 
sogenannte Markierungstoffe in das 
zu untersuchende Organ, die ent- 
sprechende Rückschlüsse zulassen. 
Eine Substanz zur Markierung des 
Leber-Gefäßraums ist Zucker, im 


ausgewertet am 28.2.8584 


SH-LACTAT TOH SH-GLUCOSE 


<dpm/50 ul) <dpm’SO ul) <drm/SB ul? 





Teil einer Auswertung aus der Versuchsreihe »Puls«. Die Werte in Spalte 3 bis 7 sind Anzeichen da- 
für, welcher Anteil der Substanz zu der angegebenen Zeit (Spalte2) austritt. 


oftmals sehr langfristig angelegten 
Versuchen anfallen, wird er eben- 
falls herangezogen. 

Franz M. Zwiebel schildert einen 
typischen Versuch: »Bei Untersu- 
chungen von schnellen Transport- 
vorgängen über die Zellmembran 
werden die Rohdaten wesentlich 
durch drei Faktoren mitbestimmt. 
Da ist die Größe des Gefäßraums 
und dessen Verzweigungen zu nen- 
nen sowie die Anzahl der Zellen. 
Wir brauchen aber unbedingt »sau- 
bere« Werte, die auch aufandereals 
die untersuchten Organe übertrag- 
bar sind. Es nützt nichts, zu wissen, 
wie schnell zum Beispiel Milchsäure 
im Stoffwechsel einer Versuchs- 
Leber verarbeitet wird, wenn man 
nicht gleichzeitig Angaben über 
den Gefäßraum und die übrigen 
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medizinischen Sprachgerauch Sac- 
charose. Dieser Stoff geht nicht in 
die Zellen, nur in den Gefäß-Raum. 
Als Markierung für die Anzahl und 
Größe der Zellen nehmen wir Harn- 
stoff. Er dringt in die ganze Leber 
ein. Die Werte für die interessieren- 
de Substanz, Milchsäure liegen zwi- 
schen den Werten für Saccharose 
und Harnstoff. Die Interpretation, 
wie schnell die Milchsäure in der 
Leber verarbeitet wird, können wir 
nur in Relation zu diesen Markie- 
rungsdaten vornehmen..« 

Der Datenanfall pro Versuch ist 
enorm: bis zu 6000 Daten müssen in 
einigen Fällen verrechnet werden. 
Mit den Mikros lassen sich die not- 
wendigen Umrechnungen der Roh- 
daten und die grafische Darstellung 
vornehmen. Werden umfangreiche- 





Franz M. z; i 
wiebel bei der Auswertung mit zwei sein 
er 





Helfer, 


re Matrizen- oder Vektorrechnun- 
gen gefordert, ist der Commodore 
nicht mehr zuständig — dann läßt 
Franz M. Zwiebel die Daten aufdem 
Großrechner im Leibnitz-Rechen- 
zentrum auswerten. Doch auch 
dann braucht er einen der Klein- 
computer: Der Datentransfer geht 
über Lochstreifen oder Modem an 
das Rechenzentrum. 


Auch bei der Ausbildung 
hilft der Computer 


Regulation des künstlichen Kreis- 
laufs während eines Versuchs, Aus- 
wertung der Daten nach dem Expe- 
riment — das sind längst nicht alle 
Einsatzgebiete der fünf Commo- 
dore-Computer. Franz M. Zwiebel 
verlangt noch ein bißchen mehr: So 
hat er Berichte- und sonstige Texte 
auf der Diskette abgespeichert. Die 
Schreibmaschine als ‚Textverarbei- 
tungssystem« hat längst ausgedient. 

Die Ausbildung von Studenten ist 
eine weitere Aufgabe, die zum Ar- 
beitsalltag des eifrigen Münchner 
Forscherteams gehört. Und auch 
hier hat Franz M. Zwiebel ein sinn- 
volles Einsatzgebiet für seine Com- 
puter gefunden. Bei der Organisa- 
tion des Unterrichts, der Vorberei- 
tung und Auswertung von Prüfungs- 
aufgaben hilft ihm ebenfalls die 
Commodore-Familie. 

Wunschlos glücklich ist Franz M. 
Zwiebelabernochnicht. Er»bastelt« 
an einer Vernetzung der Computer. 
Die Materie ist ihm inzwischen hin- 
reichend vertraut — wer sich beruf- 
lich so viel mit Mikrocomputern be- 
schäftigt will »der Sache auch auf 
den Grund gehen«. »Denn alles wird 
einfacher« prophezeit Franz M. 
Zwiebel, »wenn der VC20undderC 
64 auf dieselben Datenbestände zu- 
greifen können«. (kg) 


Ausgabe 7/Iuli 1984 





*r% 
*r% 
*r*%* 
*r% 


FORI=0T04 
FORJ=0T082 


NEXTJ,I 


300 : 
1000 


1005 : 
1010 
1020 
10530 
1040 
1050 


v1C=53248 





6540 Simmern 


174 an 


KERUKKRHRKRKERRRRRHRKKHNRKHHR THUN 
SPRITE WETTBEWERB 
‚RALPH MEYER 
STOERTEBEKERWEGS 32 
2104 HAMBURG 92 
KEHUKEUKRERRKKHRKKHKTKHNKK HN KHK FRRR 


#r% 
*r%r 
*%%* 
*%%* 


**%* DATA EINLESEN #%*%* 


: READBY: POKE250*54+64*I+J,BY 
FORI=1T08:READSN (I) =NEXTI 

REM *** SPRITE PARAMETER SETZEN #** 
POKEVIC+32,11:POKEVIC+SS,11 
POKEVIC+21,1:REM SPRITE O AN 


POKEVIC+28,1:REM MULTICOLOR SPR 
POKEVIC+39,0:REM SC=SCHWARZ 


ie können sich vorstellen, 

daß uns eine Entschei- 
dung nicht leichtgefallen ist. 
Denn es haben sich viele Le- 
ser an diesem Wettbewerb 
beteiligt und ein Sprite sah 
schöner aus als das andere. 
Schließlich mußte sich jeder 
Redakteur vor den Monitor 


Alexander Glaser, 6113 Babenhausen 





(Raupe) 


setzen und zu jedem Sprite 
seine eigene Beurteilung ab- 
geben. Zum Schluß wurden 
die Beurteilungen ausge- 
wertet, dann stand der Sie- 
ger fest. Das Multicolor 
Sprite von Ralph Meyer aus 
Hamburg bekam die mei- 
stenStimmen.Esisteinesder 
wenigen Sprites, die in Multi- 
color erstellt wurden und 
sieht doch recht hübsch aus. 


1080 
1070 
1075 
1500 
2000 
2002 
2008 
2010 
2020 
2030 
2040 
2050 
2080 
2070 
2080 
2999 
4000 
5000 
5002 
5004 
9900 
9940 
9950 
99860 





(Fuchs) 


Wenn Sie das beistehende 
ListingabtippenunddasPro- 


gramm 


Sie auch die Liebe fürs De- 
tail, die in jeder Bewegung 
kleinen Männchens 


des 
steckt. 


Ähnliches gilt auch für das 
Motorrad, das Erwin Schaal 
aus Auenwald schickte. Nur 


POKEVIC+37,8:REM MCO=ORANGE 
POKEVIC+38,2:REM MCi=ROT 
POKEVIC+1,100:NR=1 


REM *%** SPRITE BEWEGEN VON 
REM *%*%* LINKS NACH RECHTS 
PRINT"L” 

FORX=1T0255STEP2 
POKEVIC+O,X 

POKE2040 „250+5N (NR) 
NR=NR+1 

IFNR>STHENNR=1 
FORI=1T050:NEXT 

NEXTX 
END 

REM *#* 
REM #%** 


REM ##* 


DATEN FUER DIE 5 BEWEGUNGS 
PHASEN DER FIGUR 


SPRITE O 
DATA 2, 34, O0, 10, 168, O0, 34, 148, O 
DATA 2, 89, 64, 10, 85, 80, 8, 69, 64 
DATA 34, 64, 0, O0, 85, 0, 3, 245, 64 


und kam deshalb auf den 
3 zweiten Platz. Multicolor 
Sprites haben zwar den 
Nachteil, daß die Auflösung 
des Sprites geringer ist, es 
wird gröber, aber es ist et- 
was schwieriger zu program- 
mieren. 





starten, bemerken 


3. Preis: Stefan Hübner, 3000 Hannover 





ist es kein Multicolor-Sprite 





Thomas Reuter, 7742 St. Georgen/Schw. 
(Enduro) 


aa 


Ausgabe 7/Juli 1984 





9970 DATA 43, 0, 
4212 

9980 DATA 95, 250, 
9990 DATA 34, 170, 
128 
10005 
168 
11000 
11010 
11020 
4 
11030 
11040 
11050 
o 
11060 
8 
11070 
160 
12000 
12010 
12020 
12030 
12040 


184, 


148, 
0, 
DATA 170, 2, 128, 
REM **%* SPRITE 1 
DATA 34, 40, 128, 
DATA 170, 153, 


DATA 
DATA 
DATA 


42, 64, 0, 


DATA 0, 168, O, 


DATA 168, 2, 136, 
REM *** SPRITE 2 
DATA 34, 34, 0, 


DATA 42, 89, 64, 


DATA 3, 232, 





Auf eine ganz andere Idee 
kam Stefan Hübner aus Han- 
nover. Die an sich langweili- 
ge Computerschrift läßt sich 
mit seinem Sprite sehr gut 
verzieren. Etwa als Änfangs- 
buchstabe eines Absatzes. 





Das verzierte »G» von Gan- 
dalfausdem»Hobbit brach- 
te ihm den dritten Platz ein. 


Salomonisches 
Urteil 


Als wir begannen, die Le- 
sereinsendungen zu prüfen 
und zu bewerten, merkten 


Das schönste 


191, 


a2, 


64, 

128, 85, 0, 3, 
34252, 0% 3,8236. 100314 
94, 255, 208, 67, 252, 0, 


10, 


10, 








191, 208, 255, 239 


67, 252, 0, 0, 
186, 128, 42, 


168, 0 
226, 
160, 2, 


160, 128, 0, 


8, 170, 0, 10, 148, O 
10, 85, 80, 8, 85, & 


245, 64 
190, 208 
0, 168, 


170. 0,2170, 10, 12 


2, Q 


140, 160, 160, Q, 


168, O0, 10, 148, O 
10, 85, 80, 40, 69, 64 


DATA 10, 64, 0, 32, 85, 0, 3, 245, 64 
05. 35123810, 7% 


188, 0 





wir, daß es fast unmöglich 
sein würde, einen Sieger zu 
erhalten, dessen Sprite als 
einziges den Gesamtpreis 
von 1000 Mark rechtfertigen 
würde. Zu gering waren die 
Unterschiede. Deshalb ent- 
schieden wir uns für eine ge- 
rechtere Verteilung des 
Gesamtpreises. Der Sieger 
erhält 350 Mark, der zweite 
Platz, das Motorrad, fährt mit 
200 Mark nach Hause und 
das hübsche »G« wird mit 100 
Mark honoriert. Da dierestli- 
chen Sprites unserer TOP- 
TEN auch sehr hübsch sınd 
und auch nicht wesentlich 
schlechter ausfallen, be- 























DATA 23, 
DATA 2, 
DATA 8, 
REM #%##+ 
DATA oO, 
DATA 10, 
DATA 34, 
DATA 15, 
DATA 15, 
DATA 2, 168, 0, 1 
DATA 8, 10, 0, 
REM *%*%* SPRITE 4 
DATA 2, 34, 0, 
DATA 42, 153, 64, 


189, 0, 
12060 
12070 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
14000 
14010 
14020 


10, 0, 
SPRITE 3 
138, 
89, 64, 
184, 0, 
237, 64, 


4 
14050 
14040 
14050 
14060 
14070 
20000 
20100 


DATA 
DATA 
DATA 
DATA 0, 
DATA 0, 
REM *** 
DATA 0,3,4,2,1,2, 


138, 64, 0, 
3, 188, 
S; 
168, 0, 
40, 0, 0, 


READY. 


schlossen wir, jedem von ih- 
nen eine Prämie von je 50 
Mark zukommen zu lassen. 


Dem aufmerksamen Beob- 
achter wird auffallen, daß 
zwei der abgebildeten Spri- 
tes sich von allen anderen 
unterscheiden. Und zwar 
sind das der Pumuckl und 
der Supermann. Diese Spri- 
tes sehen zwar sehr schön 
aus, bestehen aber leider 


168, 0, 10, 
10, 


0, 10, 


BAEO.NB,1 835 70,08% 


10, 


10, 


0,5, 
156,0, 3,1 212).0, 0, 
0, 








22, 253, 0, 0, 168, 0 
168, 0, 10, 42, O 
10, O, 10, 138, 128 


168, O0, 42, 148, 0 
80, 8, 69, 64 
245, 64 

59, 188, 0, 63, 237, 0 
7, 249, 64, 2, 160, O 
0, 168, 0, 10, 42, 0 

10, O0, 10, 138, 128 


10, 85, 


168, 0, 
10, 85, 


138, 148, 0 
80, 40, 85, 6 


32, 69, 0, 3, 245, 64 
188, 0, 3, 188, 0 
148, 0 
168, 0, 0, 40, 0 
168, 0, 0, 170, 0 
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(Segelschiff) 


nicht auseinem, sondern aus 
mehreren Sprites. Deshalb 
kamen sie auch nicht unter 
die ersten drei Gewinner. 
Wir hoffen, daß die Leser 
und auch die Gewinner mit 
dieser »salomonischen« Re- 
gelung einverstanden sind. 
(Die 64’er Redaktion) 
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Nachdem wir ein Magazin 
speziell für die Commodore- 
Computer geschaffen ha- 
ben, rückt ein Wunschtraum 
in greifbare Nähe: 

Wir wollen eine Programm- 
bibliothek aufbauen. Eine Bi- 
bliothek, zu der jeder Leser 
einen (oder auch beliebig 
viele) Beiträge leisten kann. 


Warum eine Bibliothek? 

In fast jeder Computerzeit- 
schrift werden irgendwann 
einmal kleine Programme, 
Utilities, abgedruckt, die je- 
der Programmierer sehr gut 
brauchen kann. Aber wer 
kann sich schon jede Zeit- 
schrift jeden Monat leisten. 
Und nicht jeder hat die Zeit, 
jedes eigentlich interessante 
Programm abzutippen. Des- 
halb wollen wir eine Samm- 
lung von Unterprogrammen 
zusammenstellen, die jedem 
Leser zur Verfügung steht. 


Was soll die Bibliothek enthalten? 


Sie soll hauptsächlich Pro- 
gramme enthalten die man 
entweder in bestehende Pro- 
gramme einsetzt oder von 
Anfang an in ein zu ent- 
wickelndes Programm ein- 
baut. 

Dazu gehören zum Beispiel: 
Druckerhilfsprogramme, wie 
Hardcopy-Routinen, Unter- 
programme für Plotter, Gra- 
fik-Unterprogramme (wie 
zum Beispiel der Draw-line 
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Algorithmus aus dem $4er/ 
4), Unterprogramme für Bild- 
schirmaufbau, Formatie- 
rungshilfen (Print Using oder 
Print At, Maskenaufbaupro- 
gramme, etc.), Sortierrouti- 
nen. Programme zur Änpas- 


sung bestimmter Peripherie 
an den Computer (zum Bei- 
spiel Epson an C 64) 

Auch Utilities, wie etwa Re- 
number, Mergs, Delete oder 
Copy finden ihren Platz. An- 
sonsten sind Ihrer Fantasie 
keine Grenzen gesetzt. Ma- 
chen Sie Vorschläge. Es sol- 
len die Leser, also Sie sein, 
die die Bibliothek aufbauen. 
Um diese Bibliothek aufbau- 
en zu können, müssen je- 
doch einige Regeln beachtet 
werden. 


Ein Problem: die Variablen 

Diese Unterprogramme 
sollen von jedem eingesetzt 
werden. können, und. das 
ohne allzugroßen Ände- 
rungsaufwand. Ein Problem 
dabei sind die verwendeten 
Variablen. Wenn man ein Bi- 
bliotheksprogramm in sein 
eigenes Programm integrie- 
ren will, muß man sich darauf 
verlassen können, das keine 
gleichen Variablen für unter- 
schiedliche Zwecke benutzt 
werden 

Deshalb bestimmen wir 
die Namen der Variablen, 
die Sie für Ihre Unterpro- 
gramme, die in unsere Bi- 
bliothek kommen sollen, be- 
nutzen dürfen. Die Art der 
Parameterübergabe erklä- 
ren wir dann später noch. 

Am besten benutzen wir in 
unseren Unterprogrammen 
sonst selten benutzte Varia- 
blennamen: 
Ql bis Q9 oder OX0) bis 
QX10) für numerische Varia- 
ble 









Y1$ bis Y9$ oder YI$(0) bis 
Y9$(10) für String Variable 
WIG,j) bis W&(i,j) für numeri- 
sche Felder 
VI$(,j) bis V9$G,j) für String 
Felder 

Als Laufvariable sollten Sie 
die sonst üblichen nehmen, 
aber in jeweils doppelter 
Ausführung: 
ILJJ,KK,LLMM,NN 
Beispiel für Parameterübergabe 

Ängenommen, es existiert 


folgendes Unterprogramm 
(siehe Listing). Dann kann 
dieses Unterprogramm 


durch das Hauptprogramm 
folgendermaßen aufgerufen 
werden: 

2120... 

Z190..... 

7140 Ql=K 

7150 GOSUB 100:REM SOR- 
TIEREN FF$ 

ZIE0 ... 

An diesem Beispiel kann 
man gleich zwei Punkte er- 
kennen: 

1. In Zeile 7140 wird die Va- 
riable K an die Variable Ql 
übergeben. K und Ql haben 
jetzt also den gleichen Wert, 
nämlich die Größe des Fel- 
desFF$(). Nur derjenige, der 
das Unterprogramm in sein 
Programm einbauen will, 
muß wissen, welche Variable 
er übergeben muß. Denjeni- 
gen, der das Unterprogramm 
geschrieben hat, interessiert 
das überhaupt nicht. Der 
muß dem späteren Benutzer 
lediglich mitteilen, welche 
Variablen er benutzt und was 
sie bedeuten. 

2. Das Feld FF$( ). Der Er- 
steller des Unterprogramms 
hat nicht den Namen FF$ ge- 
wählt, sondern V1$ (gemäß 
unseren Konventionen siehe 
oben). Erst der spätere Be- 
nutzer hat den Namen (ge- 
mäß seinen Bedürfnissen) in 
FF$ umgewandelt. Und das 
aus folgendem Grund: 

Eine Parameterübergabe 
eines Feldesist nicht nur zeit- 
raubend, sondern auch der 
Speicherplatz des Feldes 
muß verdoppelt werden (al- 
so auch neu dimensioniert 


werden). Das ist hier die be- 
deutendste Einschränkung 
in Basic. Aus diesem Grunde 
sollte in diesem Fall die Mög- 
lichkeit bestehen, das Unter- 
programm zu ändern (also 
bitte keinen Listschutz oder 
ähnliches einbauen). Die 
Zeilennummern sollten in 
Zehnerschritten durchnum- 
meriert werden. 

Aufbau des Unterprogramms 

Bitte schicken Sie Ihre Pro- 
gramme mit diesem Aufbau 
ein: In der obersten Zeile die 
Bezeichnung UP gefolgt vom 
Namen (im Beispiel Zeile 
110). Darunter die Überga- 
beparameter (130-140). 
Durch einen Strich getrennt 
folgen die im Unterpro- 
gramm verwendeten Varia- 
blen ebenfalls mit einer kur- 
zen Erklärung (170-180). Am 
Schluß des Programmkop- 
fes soll eine kurze Beschrei- 
bung des Programms stehen 
(200-220). Erst danach folgt 
das eigentliche Programm. 
Es sollte mit RETURN been- 
det werden. 

Daß zusätzlich noch eine 
ausführliche Programmbe- 
schreibung (Sinn und Zweck, 
Funktionsweise, Variablen- 
tabelle etc.) vorhanden sein 
muß, ist eigentlich selbstver- 
ständlich. Gerade bei Utili- 
ties ist eine ausführliche Be- 
dienungsanleitung (auch für 
Änfänger verständlich) un- 
bedingt notwendig! Eine gu- 
te Lösung ist es, diese Be- 
schreibungen zusätzlich in 
REM-Zeilen an das Pro- 
gramm anzuhängen (hinter 
demRETURN). Man kann sie 
dann bei Bedarf einfach Ii- 
sten und auch, wenn nicht 
mehr benötigt, einfach lö- 
schen. 

Wir werden alle einge- 
schickten Programme testen 
und jeden Monat die besten 
prämieren, veröffentlichen 
und zusätzlich als Teil eines 
Programmpaketes als Leser- 
Service auf Diskette anbie- 
ten. Wir freuen uns über je- 
den Beitrag. Jeder kann ge- 
winnen, es werden jeden 
Monat mehrere Preise ver- 
geben. Und jeden Monat 
wird ihr Unterprogramm 
wieder mitberücksichtigt. 
Schicken Sie Ihre Unterpro- 
gramme an: Verlag Markt & 
Technik, Redaktion 64er, 
Programmierwettbewerb: 
Programmbibliothek, Hans- 
Pinsel-Straße 2, 8013 Haar 
bei München. 
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Drücken Sie dann "2', sind Sie wie- 
der im normalen Rechnerbetrieb. 
Sollten Sie durch irgendeinen Um- 
stand (zum Beispiel durch Drücken 
der »RUN/STOP-«-Taste) im Hochauf- 
lösungsmodus aus dem Programm 
fallen, dann hilft der folgende Weg: 


1. »SHIFT« + »CLEAR/HOME« 
2. »RUN« »RETURN« 
3. dann »2« eingeben 


Die Option »C« zeigt eine kleine 
Demonstration von Möglichkeiten 
der Grafik-Unterprogramme. Aller- 
dings sollten Sie ein bißchen Zeit 
mitbringen, wenn Sie C anwählen: 
Das ganze dauert zirka 25 Minuten. 

Option 6 (Punkte zeichnen) ist so 
eingerichtet, daß 320 Punkte in Form 
einer Sinus-Funktion gezeichnet 
und mit Option 7 (Punkte löschen) 
teilweise wieder gelöscht werden. 





Ausblicke — schnellere 
Grafik durch Maschinen- 
sprache 





Diese Folge soll nicht beendet 
werden, ohne einen kleinen tröstli- 
chen Ausblick. Wie Sie — beson- 
ders im letzten Programm — feststel- 
len konnten, brauchtmanschon eini- 
ges Sitzfleisch für hochauflösende 
Grafik in Basic. Wenn Sie aber ein 
kommerzielles Grafik-Programm 
laufen sehen, geht das alles erheb- 
lich schneller. Was ist der Unter- 
schied? Da wäre zunächst einmal 
die Programmiersprache: Unser 
C 64 kann eigentlich gar kein Basic. 
Er braucht den Basic-Interpreter, 
der zunächst jeden Befehl liest und 
dann in Maschinensprache über- 
setzt. Die versteht unser Rechner 
zwar, die Übersetzung und das Le- 
sen dauern jedoch lange Zeit. Eine 
starke Beschleunigung der Grafik 
ist möglich durch Programmieren in 
Maschinensprache. Einige solche 
Maschinenspracheprogramme zur 
beschleunigten Grafik werden in 
den nächsten Folgen gezeigt. Aller- 
dings stoßen wir da bald an die 
Grenzen unseres Commodore. Ein 
8-Bit-Computer mit zirka 1 Mega- 
hertz Taktfrequenz wie unser C 64 
ist beispielsweise in der 
Fließkomma-Arithmetik (wie sie für 
das Zeichnen von Ellipsen nötig ist) 
zeitlich gehandicapt, und deswegen 
sind der Geschwindigkeit bei kom- 
plexerer Grafik doch einige Gren- 
zen gesetzt. 

(Heino Ponnath) 
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